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— Gatinho de Cheshire — com ego u efa, bastante timidamente... — 
Voce pode me dizer, por favor , qua / o caminho que devo tomar? 

— Depende bastante de para onde voc§ quer ir — disse o Gato. 

— Nao me importa muito — disse Alice. 

— Entao, nao importa quaI o caminho que voce tome — disse o Gato. 

Lewis Carroll, 

em Alice's Adventures in Wonderland (1865) 

Mais urn livro sobre linguagem de maquina para a linha Sinclair? 

Sim. Mas nossa situapao ao nos propormos a escrever este livro era radicalmente diferente 
da de Alice — nos sabfamos onde querfamos chegar. 

Foi nosso proposito colocar toda a experiencia adquirida ao longo de quinze anos de 
magisterio a servipo de criar um livro que atendesse a alguns pontos basicos. Desejavamos 
um livro que: 

— fosse didatieo e compreensivel; 

— fosse agradavei de ler; 

— tivesse muitos exercicios; 

— os exercfcios tivessem respostas; 

— os programas nao apresentassem erros de impressao, e rodassem realmente; 

— tivesse muitas rotinas em linguagem de maquina realmente uteis, e explicasse os 
comos e os porques delas funcionarem; 

— aclarasse os misterios, em vez de aumenta-los ... 

Uma vez fixados os objetivos, nos esforpamos bastante para atingi-los. 

Conseguimos? Cabe ao leitor a palavra final, 


0 AUTOR. 


Introdugao 



1.1 


INTRODUCAO 

Para imprimir o caractere * no canto superior esquerdo da tela, o seguinte programa 
BASIC poderla ser usado. 

10 LET A - 23 
20 PRINT CHR$ A; 

A linha 10 do programa define uma variavel A, e a ela atribui o valor 23. 

A linha 20 imprime na tela o caractere cujo codigo foi def inido pela variavel A (23 e o 
codigo decimal do caractere asterisco — confira no Apendice 2). 

Nosso primeiro programa ASSEMBLY fara exatamente a mesma coisa (imprimir urn 
asterisco no canto superior esquerdo da tela), e tera exatamente a mesma estrutura. 



SUBSTITUINDO 0 LET 

Em BASIC Sinclair, para atribuir valores a variaveis, usamos o comando LET. Assim, 

10 LET A = 23 

define a variavel A e a ela atribui o valor 23. 

Num programa BASIC, voce pode ter um numero muito grande de variaveis, e a elas 
atribuir o nome que desejar (a variavel poderia ser definida por 10 LET BRUXA = 23 

Em ASSEMBLY nao e bem assim. 

O microprocessador Z-80 possui varios registradores internos, dos quais 7 serao estudados 
inicialmente (o Apendice 1 faz um estudo detalhado do microprocessador 7-80). 

Sao eles A, B, C, D, E, H e L. 

O primeiro (A) e chamado de acumulador e e, sob varios aspectos, um registrador 
privilegiado. Breve voce vera o porque. 

Cada um destes registradores pode ser carregado com um byte, ou seja, com um numero 
("palavra") de 8 bits. 

Usando hexadecimal, vemos que cada registrador pode ser carregado com um numero de 
00 ate FF (ou seja, de 0 a 255 em decimal). 

Vamos agora aprender a carregar (LOAD) estes registradores. (Claro que este LOAD nada 
tem a ver com o comando BASIC LOAD.) 


Capriulo 


IMPRIMINDO NATELA 



A instrupao tem a seguinte forma geral: 


LD r,N 


onde 

LD -+ mnemonico de LOAD 
r -> registrador de 8 bits (A, B, C, D, EH, L) 

N -* numero entre 0 e 255 d 

Aqui um detalhe important©: quando falarmos sobre uma instrupao, usaremos numeros 
decimals (sao os numeros nos quais nosso cerebro esta acostumado a pensar). Estes 
numeros decimals, para serem introduzidos no programa, devem ser convertidos em 
hexadecimal. Use e abuse da tabela do Apendice 3. 

Assim, a correspondence e simples: 

ASSEMBLY BASIC 

LD A,23 LET A -23 

LD A,32 LET A = 32 

A instrupao "custa" 2 bytes: um para a instrupao propriamente dita e outro para o 
numero. 

A tabela abaixo fornece os codigos hexadecimais das instrupoes. 


LD A,N 

3E ** 

LD B,N 

06 -- 

LD C,N 

0E- 

LD D,N 

16 

LD E,N 

IE - 

LD H,N 

26 - 

LD L,N 

2E — 


Obs.: O conjunto de instrupoes do Z-80 estS nos Apendices 9 e 10. 


EXERCICIOS 

01 Primeiramente vamos ver $e voce entendeu como usar a tabela do Apendice 3. 
. Complete as lacunas abaixo. 

HEXADECIMAL DECIMAL 


a) F0 .■••• 

b) 0F 

c) .. 0 

d) . 121 

e) 39 ........ 

f) FF . 
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02 Suponha que seja necessario carregar o acumulador A com o codigo do caractere*. 
A instrugao e 

LD A,23 

e seu codigo hexadecimal e 
3E 17 

. J3E equivale a LD A,N (tabela na pSgina anterior) 
po,s 117h “ 23d (tabela do Apendice 3) 

Complete entao as lacunas abaixo: 

INSTRUgAO CODIGO HEXA 

a) LD A,151 . 


b) . 06 20 

c) LD L. .10 

d) LD C,240 . 

e) ... 26 FF 

f) LD E. .80 

g) .8 16. 


03 Seria possfvel a instrugao LD B,704? Por que? 

04 Mostre que voce esta firme. Sem consultar o texto (nem tabela alguma), complete 
as lacunas: 

a) Os 7 registradores que ja aprendemos a carregar sao, em ordem alfabetica,. 

., .-.. e. 

b) 0 maior valor que pode $er carregado em um registrador e.(decimal) ou 

.(hexa). 

c) LD eo mnemonico para.. que significa.. ou seja, armazenar 

informagao. 

d) O registrador A leva o nome especial de .. 

e) Escreva a instrugao ASSEMBLY (nao os codigos hexa) para carregar o 

registrador A com o valor hexa FF:... 

1.4 

SUBSTITUINDOO PRINT 

0 programa BASIC que vimos no item 1.1 tinha na linha 10 a instrugao LET, e ja vimos 
como substituMa em ASSEMBLY. 

Na linha 20, a instrugao PRINT. Vamos aprender agora como substituf-la. 

Existem instrucoes chamadas RESTART (mnemonico: RST) que estao colocadas em 
lugar fixo na ROM, nos enderegos (hexa) 0, 8, 10, 18, 20, 28, 30 e 38. Vamos enfatizar: 
estes enderegos estao em hexadecimal . 

A fungao das instrugoes RESTART e variavel de micro para micro que utiliza o 
microprocessador Z-80. Por exemplo, na famflia TRS-80 (CP-500, DGT-100 etc.) as 
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instrugoes RST tern os mesmos codigos hexa, estao nos mesmos enderegos da ROM, 
mas... fazem outras coisasl 

Nos micros de loglca SINCLAIR a fungao das instrugoes RESTART e a seguinte: 

RST 0 - inicializa o sistema, e ativada quando se liga o computador. Veja os 
Apendices 14 e 16 para mats detalhes. 

RST 8 — fornece o codigo do erro cometido (rotina de erro). 

RST 10 — coloca no video o caractere cujo codigo esta no acumulador. 

RST 18 — obtem urn caractere da linha de BASIC. 

RST 20 — obtem o proximo caractere da linha de BASIC. 

RST 28 - salta para a rotina de caiculo com ponto f lutuante. 

RST 30 — organiza o espago na memoria. 

RST 38 — rotina de interrupgao para mostrar uma linha na tela. 

A tabela abaixo fornece os codigos hexadecimais destas instrugoes. 


RST 0 

C7 

RST 8 

CF 

RST 10 

D7 

RST 18 

DF 

RST 20 

E7 

RST 28 

EF 

RST 30 

F7 

RST 38 

FF 


Por enquanto, nos interessa a instrugao RST 10. Como vimos, RST 10 coloca na tela o 
caractere cujo codigo esta no acumulador . 

Assim, ela e equivalente a instrugao BASIC da linha 20 do programa, 

20 PRINT CHR$ A; 

E uma instrugao poderosa e economical "custa" apenast/m byte (D7)! 


1.5 


VOLTANDO AO BASIC 

Ja sabemos substituir o LET e o PRINT. Entretanto, ainda nos falta urn detalhe 
importantfssimo. Ao contrario do BASIC, um programa ASSEMBLY nao "para" 
automaticamente na ultima instrugao. £ necessario "dizer" ao microprocessador que o 
programa acabou, Para isto, utilizaremos a instrugao RET (mnemonico de RETURN). 

Assim, nao esquega. Para finalizar o programa ASSEMBLY, use 


RET C9 
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Duas observances: 

1?) Se voce esquecer de colocar o RET, o mlcroprocessador interpretara o 

conteudo do proximo enderepo (que e tOtalmente imprevisfvel, e nao 0, como 
se poderla supor) como uma instrugao, e tentara executa-la. Assim sendo, 
qualquer coisa pode acontecer ! Esta qualquer coisa chama-se CRASH, 

O que e CRASH? A tela some, ou aparecem imagens completamente malucas (as vezes 
sao parecidas com as linhas de LOAD e SAVE do BASIC, as vezes nao). O teclado nao 
funciona, nem a teda BREAK. A unica solugao e desligar o computador (qualquer 
programa nele presente estara perdido), e liga-lo novamente. 

Apesar dos pesares, um consolo: nem o pior CRASH danifica o computador. 

2?) Talvez voce saiba que existe em ASSEMBLY uma instrugao equivalente ao 
STOP do BASIC: e a instrupao HALT. JAMAIS a use em micros da linha 
SINCLAIR, pois HALT tira de voce o acesso ao teclado, criando um estado 
semelhante ao CRASH: teclado desativado. Insistimos: 


JAMAIS USE HALT (codigo hexa 76) 


SEMPRE USE RET (codigo hexa C9) 


1.6 ___ 

0 PRIMEIRO PROGRAMA ASSEMBLY 

Nosso primeiro programa ASSEMBLY esta pronto. Observe. 

BASIC ASSEMBLY CODIGO HEXA 

10 LET A = 23 LD A,23 3E 17 

20 PRINT CHR$ A; RST10 D7 

RET C9 


1.7 

OQUE FAZER COM ELE? 

Agora, a pergunta que voce deve estar se fazendo: como entrar com este programa no 
micro? Ele so "entende" BASIC! 

£ verdade. Se voce digitar LDA,23 produzira LET DA,23, o que Ihe trar^ erro de sintaxe; 
se voce digitar 3E 17 produzira 3 REM 17, o que nao funciona! Como introduzir um 
programa ASSEMBLY no computador? 

Precisamos de um programa BASIC que fapa isto para nos! 

Primeiramente, reservaremos uma area do BASIC segura para colocar nela nosso programa 
ASSEMBLY, sem o risco de ele ser "coberto" pelo BASIC. Existem varias maneiras de 
fazer isto. A mais facil (em nossa opiniao) e usar uma linha inicial do programa de REM — 
ela sera ignorada pelo BASIC! 
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Assim, a primeira providencia para digitar urn programa ASSEMBLY e digitar 

1 REM tantos caracteres (quaisquer, ate espapos servem) quantos forem os bytes do 
programa. 

Por exempio, nosso programa ocupa 4 bytes (3E 17 D7 C9). Logo, e necessaria uma I inha 
1 REM com pelo menos 4 caracteres quaisquer. Pode ser 

1 REM 1234 ou 
1 REM VOVO ou 
1 REM XXXX ou 
1 REM VACA ou 

1 REM qualquer coisa que voce quiser que tenha pelo menos 4 caracteres ! 

Vamos estudar isto com mais detalhes. 

Suponha que voce digitou 1 REM 1111. Na memoria do micro, estara: 


19 enderepo BASIC 
(para maiores 
detalhes, consulte 
os Apendices 5, 6 
e 7). 


ENDEREgO (d) 

CONTEUDO (d) 

SIGNIF1CADO 

16509 

0. 

i numero da linha: 

16510 

1 ..... 

) 0 X 256 + 1 = 1 

16511 

6. 

i tamanho da linha: 

16512 

0 . 

f 0 X 256 + 6 = 6 

16513 

234 

codigo de REM 

16514 

29 

codigo do caractere 1 

16515 

29 

idem 

16516 

29 

idem 

16517 

29 

idem 

16518 

118 

codigo de NEW LINE 


Vamos Ss expiicapoes. Os enderepos 16509 e 16510 guardam o numero da linha, de 
maneira tal que 16509 guarda o byte mais significativo, e 16510 guarda o byte menos 
significativo. Os micros Sinclair so usam esta estrutura para guardar numeros de linha e 
variaveis de controle de loops FOR/NEXT. Consulte o seu manual! 

Exemplos: 

165(39 cont6m 6d | | in ha numero 6 X 256+ 4 = 1540 
16510 cont6m 4d / 


linha 1000 


16509 cont6m 3^~ 

16510 contSm 232 


1000i25fi_ * 

232 3- 

I__ 


Assim sendo, voce pode transformer a linha 1 do seu programa em linha 0! (Voce ja deve 
ter visto isto em programas comerciais.) Basta digitar (modo direto) 

POKE 16510,0 
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Digite NEW LINE, e apos o 0/0, diglte LIST. LS estS a sua linha 0. Se quiser que ela volte 
a $er 1, digite 

POKE 16510,1 

Brinque a vontade com isto, ate ter certeza de ter entendido. 

Vamos em frente. Os enderegos 16511 e 16512 guardam o comprimento da linha, da 
maneira ''normal" da Sinclair: 0 BYTE MENOS SIGN!FICATIVO VEM ANTES! 

Nossa linha tem comprimento 6, observe: 

REM 1111 NEWLINE 

1 byte 4 bytes 1 byte 

Uma linha 1 REM com 1500 caracteres quaisquer teria comprimento 1502! 

REM 1500 caracteres quaisquer NEW LINE 
1 byte 1500 bytes 1 byte 

Os enderegos conteriam: 

16511 .222—| 15021256 

16512 .5 ’-222 5 

i __1 

Continuando: o enderego 16513 contem 234, que e o codigo decimal de REM. Se a linha 
fosse 1 PRINT, conteria 245, que e o codigo decimal de PRINT. Para todos o$ codigosde 
todos os comandos BASIC, veja o Apendice 2. 

Os enderegos de 16514 a 16517 contem 29, codigo decimal do caractere 1. Novamente, 
consulte o Apendice 2 para qualquer informagao adicional. 

Finalmente: o enderego 16518 contem 118, que e o codigo de NEW LINE. Este 
NEW LINE fazparte da linha de BASIC! 

Voce pode, se quiser, fazer seu micro mostrar tudo isto que escrevemos para voce. Digite 
o seguinte programa BASIC: 

1 REM 1111 

10 FOR E = 16509 TO 16518 

20 PRINT E;"->"; PEEK E,CHR$ PEEK E; 

30 NEXT E 

Apos o RUN, voce devera ter a seguinte safda de vfdeo; 
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Se voce entendeu o que fizemos, sabe agora que podemos usar a nossa vontade o espago 
de 16514 a 16517: e$t3 protegido numa linha de REM. Recomendamos que voce digite 
sempre 

POKE 16510,0 

para transformar a linha 1 em linha 0. Isto defendera voce de apaga-la involuntariamente. 
(Eu proprio ja apaguei, sem querer, uma linha que me custara quase meia bora de 
digitacao, e frustrante.} 

Agora estamos prontos para o programa BASIC que fara para nos a entrada de nosso 
programa ASSEMBLY. 


1.8 

0CARREGADOR ASSEMBLY 

Primeiro, de que precisamos? 

De um programa que fapa POKE dos valores necessarios nos enderepos de 16514 a 16517. 
Para isto, o programa devera converter os codigosde maquina hexadecimais em seus 
respectivos valores decimals. E facil. Vamos la. Digite NEW, 1 REM 4 caracteres 
quaisquer, e entre com o seguinte programa BASIC. Nao esqueqa do POKE 16510,0. 
Seguranpa! 

9000 FOR E=16514 TO 16517 
9005 SCROLL 

9010 PRINT E;"->"; 

9015 INPUT'H$ 

9020 POKE E,16*CODE H$+CODE H$(2)-476 
9025 PRINT H$ 

9030 NEXT E 


Se voce achar que vale a pena, grave este programa. 

Digite RUN, e leia atentamente as observances abaixo. 

1*) Naturalmente use os numeros de linha que desejar:9000 eapenasumasugestao. 

2?) A linha 9000 da os enderepos inicial e final do nosso programa ASSEMBLY. 
Logicamente devera ser aIterada para outros programas. 

3?) A linha 9015 solicits que voce digite os codigos hexa UM DE CAD A VEZ 
(3E NEW LINE 17 NEW LINE D7 NEW LINE C9 NEW LINE). 

4?) A linha 9020 converte hexa em decimal e faz o POKE adequado. 
Exemplifiquemos com 3E. 

16*CODE HS + CODE H$(2)-476=16*CODE 3 + CODE E-476 = 

= 16*31 +42-476=4964*42-476=538-476=62 (ver Apendice 2) 

Confira na tabela do Apendice 3: 

3Eh = 62d 
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Logo, o primeiro passo do loop faz 
POKE 16514,62 

e o primeiro caractere da linha de REM e alterado para Y! Veja o Apendice 2! 

E assim todos os caracteres que voce tenha colocado na linha 0 serao alterados... 

Para outro carregador ASSEMBLY, veja o Apendice 13. 

1.9 ___ 

DE VOLTA AO PRIMEIRO PROGRAMA ASSEMBLY 

Nosso primeiro programa ASSEMBLY ja esta no computador. E agora, como roda-lo? 

RUN e agora inutil, pois faz rodar o programa BASIC ... 

Antes de ver como rodar o programa, acostume-se a forma como escreveremos nossos 
programas nesta fase inicial da aprendizagem: 

(4 bytes) 


PROGRAMA 01 


} 


INSTRUQAO 
LD A,23 

RST 10 
RET 


0 REM 4 caracteres quaisquer 

ENDEREQO CODIGO HEXA 

16514 3E 

16515 17 

16516 D7 

16517 C9 

Vamos agora conferir o que fizemos. 

De um LIST e observe atentamente: sua linha 0 deve apresentar o seguinte aspecto. 

0 REM Y* NOT TAN 

Se nao tiver estes caracteres, digite RUN outra vez e entre CUIDADOSAMENTE com os 
codigos hexa. Quaiquer erro estraga tudo. Em ASSEMBLYpraticamente nao hapequenos 
erros: cfuase todos efes levam ao CRASH. 

Uma vez obtida a linha 

0 REM Y*NOT TAN 

estude os codigos hexa do programa 01, compare com os caracteres da tabela do 
Apendice 2, e voce entendera como surgiu esta estranha linha REM. 

Mas ... agora o que queremos e rodar o programa! A funpao do BASIC que da acesso a 
rotinas ASSEMBLY e USR (mnemonico para USE ROUTINE). Mas e impossivel digi a- 
diretamente, pois e funpao, e nao comando. Assim, colocaremos antes delaa palavra-chave 
(comando) RAND que, no nosso caso; nao faz absolutamente nada. Apenas permite 
digita<?ao de USR sem erro de sintaxe. 

Ate que enfim, vamos rodar. Limpe a tela (CLS). Digite (modo direto) 

RAND USR 16514 
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L5 estS o seu asterisco no canto superior esquerdo da tela! RAND USR 16514 tambem 
pode ser tlnha de programa BASIC. Faga: 

0 REM Y* NOT TAN 

1 RAND USR 16514 

2 STOP 

Digite RUN. O asterisco aparece no canto superior esquerdo da tela, e o programa para 
com cddigo 9/2. 

A I inha 2 STOP e necess^ria para nao invadirmos o programa carregador, que continue lei 
na linha 9000. 

Observe que, apesar de sua inert vel simplicidade, este programa e um misterio para quern 
so conhece BASIC. Veja os "misterios": 

a) A linha 0; 

b) Qual a finalidade da linha REM? Linhas REM nao sao "ignoradas" pelo 
computador? 

c) RAND? Isto e para obter numeros randomicos... 

d) USR? O que e isto? 

e) 16514? Que numero e este? 

f) Como e que aquele asterisco foi parar ali? 

E, para nos, que nos iniciamos na poderosa linguagem ASSEMBLY, estes misterios 
estao clari'ssimos... 

(Se algum destes "misterios" estS realmente misteriosopara voc§, volte atras agora e 
estude novamente o capitulo ate aqui. Tudo o que vimos e fundamental.) 


1.10 


ALTERANDO 0 CARACTERE 

Se voce entendeu bem o programa, sabe que o endere$o 16515 contem agora 23, codigo 
decimal do caractere *. Logo, e possfvel alterar o caractere impresso pelo programa, 
fazendo um POKE neste enderepo. 

Lembre-se que o comando POKE trabalha com numeragao decimal . Assim sendo, digite 
(modo direto): 

POKE 16515,151 
RAND USR 16514 

7 

Voce deve ter agora um B no canto superior esquerdo do vfdeo. 

Um cuidado especialtssimo^: se o acumulador A for carregado com algum valor que NAO 
seja o codigo de um caractere imprimfvel, a instrugSo RST 10 provocarS CRASH do 
sistema. 

Consuite a tabela do Apendlce 2 e comprove que os caracteres imprimfveis tern codigos 
decimals x tais que 

0<x<63 ou entao 128<x<191 

(em hexa 0<x<3F ou entao 80<x<BF) 
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Mais tarde veremosque tais numeros guardam uma incrfvel correspondence, que nos 
permitira INVERTER 0 VI DEO! Aguarde o Capftulo 8. 

Se, ao fazer POKE 16510,x; o valor x estiver fora de uma das faixas especificadas, 
CRASH ... 

1.11 

EXERCI CIOS 

05 Se possfvel sem "colar" do PROGRAMA 01, mas consultando os apendices que 
julgar convenientes, complete as lacunas abaixo, escrevendo urn programa que 
coloque um sinal de + no canto superior esquerdo da tela. 

0 REM ... caracteres quaisquer 

ENDEREQO CODIGO HEXA INSTRligAO 


RST 


06 Sobre o programa que voce fez, responda: 

a) Para roda*lo, devemos digitar.. 

b) Qual o aspecto da linha 0 REM?. 

c) Para que a saida de video seja um sinal de 4* em vfdeo inverso, devemos digitar 

POKE..... 

d) Se digitarmos POKE 16515,216 

RAND USR 16514 

ocorrera.porque 216. 

1.12 

CHAMANDO ROTINAS NA ROM 

Bern, desligue o micro, e vamos estudar. 

A instrugao RST 10 e a maneira mais economica de imprimir um caractere no vfdeo 
(apenas um byte). 

No entanto, vamos ver outras maneiras, que tern cada qual a sua utilidade. 

Existem duas rotinas na ROM que tambem imprimem no vfdeo. Seus enderegos sao 
HEXADECIMAL DECIMAL 

07 FI 2033(7 x256 + 241) 

08 08 2056 (8 x 256 + 8) 

Em BASIC, necessitarfamos da instrugao GOSUB. Em ASSEMBLY, usaremos CALL 
(codigo hexadecimal: CD). 


CALL CD 
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Ao escrever o enderego vamos usar 2 bytes, e voce deve colocar o byte menos significative 
primeiro . 

MUITO CUIDADO! Observe: 

CALL 2056 CD 08 08 

CALL 2033 CD FI 07 (e NAO CD 07 FI) 

CD 07 FI chama uma sub-rotina no enderego 61703, so existente se voce tiver uma 
expansao de 64 K! Logo, muito cuidado! 

Conhecendo agora a instru$ao CALL, o programa 01 pode $er substitui'do pelo 


PROGRAMA 02 


(6 bytes) 


0 REM 6 caracteres quaisquer 


ENDEREgO 

CCDIGO HEXA 

INSTRUCAO 

16514 

3E ; 

[ LD A,23 

16515 

17 ' 

16516 

CD j 

1 

16517 

08 

> CALL 2056 

16518 

08 ! 

1 

16519 

C9 

RET 


Em relagao ao programa 01, este apresenta as seguintes desvantagens: 

1?) Gasta 2 bytes a mais; 

2?) A instru<?ao CALL 2056 destr6i os registros. Depois dela, o acumulador NAO 
mais estS carregado com o eddigo de * (na verdade, e imprevisfvei o conteudo 
do acumulador). Isto pode ser uma desvantagem s6ria, mas ... aprenderemos a 
contorna-la. Ha recursosde sobra! 


1.13 

EXERC! CIOS 

07 Complete as lacunas, escrevendo um programa equivalente ao 02, que cotoque uma 
interrogapao no canto superior esquerdo da tela, usando a sub-rotina do enderego 
2033d da ROM. 

0 REM ... caracteres quaisquer 
ENDEREgO CODIGO HEXA INSTRUQAO 

16514 LD 


CALL 2033 



( LD 
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08 Observe atentamente o programa abaixo. Pela primeira vez, voce vai fazer a 

desmontagem (DISASSEMBLY) de urn programa. Este exercicio sera frequente 
para nos: e muito importante. ^ este trabalho que permitira a voce entender os 
programas escritos por outros ... Complete as lacunas, edepois responda as 
perguntas: 


ENDEREpO C6DIGO HEXA 


16514 3E 

16515 17 

16516 D7 

16517 D7 

16518 D7 

16519 C9 


INSTRUQAO 



a) Para carrega-lo no computador, e necessaria uma linha 0 REM de quantos 

caracteres? . 

b) Por que?. 

c) 0 que faz o programa? Responda a isto SEM roda-lo. Depois rode e confira. 

d) Seria possi'vel a mesma estrutura usando CALL 2033? Reporte-se a segunda 

observapao do item 1.12. 


RESPOSTAS DOS EXERCfCIOS 


01 


02 


03 


a) 240 

b) 15 


c) 00 (observe que numeros hexadecimais sao escritos — para nosso uso 
d fgitos) 

d) 79 

e) 57 


a) 

b) 

c) 

d) 

e) 

f) 


• com dois 


255 



LD A,151 

3E 

97 

LD B,32 

06 

20 

LD L,16 

2E 

10 

LD C,240 

0E 

F0 

LD H,255 

26 

FF 

LD E,128 

IE 

80 

LD D,a 

16 

08 


Nao, pois 704 > 255. O registrador B so pode conter urn byte, ou seja, valores 
decimals de 0 ate 255. 


04 a) A, B, C, D, E, H e L 
b) 255; FF 
. c) LOAD, carregar 

d) acumulador 

e) LD A,255 
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05 0 REM 4 caracteres quaisquer 


ENDEREQO 

CODIGO HEXA 

iNSTRUgAO 

16514 

?! 1 

LD A,21 

16515 

15 > 

16516 

D7 

RST 10 

16517 

C9 

RET 


06 a) RAND USR 16514 

b) 0 REM Y + NOTTAN 

c) POKE 16515,149 

d) OcorrerS CRASH, porque 216 nao e o codigo de um caractere imprimivel 
(** NAO E UM CARACTERE). 

07 0 REM 6 caracteres quaisquer 


ENDERECO 

CODIGO HEXA 

INSTRUgAO 

16514 

f \ 

LD A,15 

16515 

0F » 

16516 

CD -k 


16517 

F1 } 

CALL 2033 

16518 

07 f 


16519 

C9 

RET 

ENDEREgO 

CODIGO HEXA 

INSTRUgAO 

16514 

3E l 

LD A,23 

16515 

17 ' 

16516 

D7 

RST 10 

16517 

D7 

RST 10 

16518 

D7 

RST 10 

16519 

C9 

RET 


a) 0 REM 6 caracteres quaisquer, 

b) Porque o programa ocupa 6 bytes. 

c) Coloca 3 * seguidos na tela. 

d) Nao, pois CALL 2033 destroi os registros. Aprenderemos mais tarde como 
contornar este problema. Como ja dissemos, ha recursos! 
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2.1 


INTRODUCAO 

Para encher a tela com um caractere, o seguinte programa BASIC serla possfvel: 

10 LET A = 23 
20 PRINTCHRS A; 

30 GOTO 20 

Apos o RUN, a tela leva alguns segundos (cerca de 10) para ficar repleta de asterlscos e 
aparecer o codigo 5/20. 

Como voce ja sabe, 5 e o codigo de falta de espapo na tela. Digitando-se CONT, a tela e 
limpa, e novamente e preenchida. 

Observando o programa, sabemos como substituir em ASSEMBLY as linhas 10 e 20, O 
que nos falta e algo equivalente a GOTO. E o que veremos neste capftulo. 

2.2 

SALTO ABSOLUTO INCONDICIONAL 

A instrupao JUMP (mnemonico JP) seguida de 2 bytes para o endereco e equivalente a 
GOTO em BASIC. Seu codigo hexadecimal e 


JP C3 


Da mesma forma que CALL, o enderepo a seguir deve ser escrito com o byte menos 
significative primeiro. 

Assim, $e desejarmos fazer JP 16514 devemos fazer 
16514 1256 

1154 64^ 

13Q 40 em hexa, este e o byte 

/ MAIS significative 

82 em hexa, este e o byte 
MENOS significative 

Logo, a instrupao JP 16514 fica C3 82 40 

primeiro o byte 

MENOS 

significativo 


Capftulo 



ENCHENDOA TELA 




2.3 


ENCHENDO A TELA 


Voce vai ser apresentado a uma das maiores vantagens da linguagem ASSEMBLY: 
a velocidade. 


PROG RAMA 


(6 bytes) 


0 REM 6 caracteres quaisquer 


16514 

3E 

} LD A,23 

16515 

17 

16516 

D7 

RST10 

16517 

C3 

) 

16518 

84 

V JP 16516 

16519 

40 

/ 


Observe bem: a instrupao JP 16516 substitui o GOTO 20 do programa BASIC. 

Digite RAND USR 16514 e veja a incri've! velocidade com que a tela e preenchida (menos 
de 1 segundo!) 

Velocidade e a segunda principal vantagem do uso de ASSEMBLY. A principal e 
economia de memoria. Isto voce so perceber^ mais tarde. 


2.4 

EXERCfCIOS 


09 Preencha as lacunas: 

a) JP e o mnemonico para.... que signifies.■ - - 

£ equivaiente & instrugao BASIC. 

b) 0 codigo hexa da instru<?ao JP 6. 

10 Voce vai preparar um programa que enche a tela com a letra H. Siga o esquema. 

INICIO-► LD A,N (N = codigo do caractere H) 

CALL 2056 
JP INICIO 

A palavra INI'CIO, usada para determinar um ponto do programa, chamamos de um 
R6TULO (LABEL). Seu usq e extremamente util. 


Complete entao: 

0 REM.caracteres quaisquer 

INICIO-^ 16514 . 

16515 . 

16516 . 

16517 . 

16518 . 
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16519 v 

16520 i . 

16521 / 

Apos rodar o programs, atraves do comando., pense e’justifique por que 

o rotulo INfCIO tem de ser em 16514, e nao em 16516, como no programs 03. l$to e 
porque a instrupao.destroi. 

2.5 _ 

'SALTO RELATIVO INCONDICIONAL 

Existe outra instrupao de salto, que nao tem equivalence direta com o BASIC, mas que 
nos sera extremamente util. E a instrupao JUMP RELATIVE (mnemonico JR), seguida de 
1 byte, que da a magnitude do salto. Seu codigo hexadecimal e 


JR 18 


0 byte seguinte ao enderepo dara a magnitude do salto, para frente ou para tras, baseado 
na seguinte convenpao: 


entre 00 e 7F -salto para frente 

entre 80 e FF -► salto para tras 


Estudemos separadamente os casos: 


a) SALTO PARA FRENTE 


JR 0 nao tem sentido, 6 uma instrupao para nao saltar! JR n diz que voce deve saltar n 
enderepos a partir do final da instrupao. Observe o exemplo: 


16514 

18 

.16515 

02 

16516 

XX 

16517 
. 16518 

XX 

0 salto mais 

amplo e JR 

16514 

18 

16515 

16516 

16517 

7F 


JR 2 


> estes 2 enderepos serao saltados, o programs 
J salta para o enderepo 16518 


127 (7Fh = 127d). Observe o exemplo: 
> JR 127 


estes 127 enderepos serao saltados, o .programs salta 
para o enderepo 16516 + 127 = 16643 


16642 

.16643 
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b) SALTO PARA TRAS 


0 salto para tras 6 baseado numa convengao de numeros negatives, chamada 
COMPLEMENTS) DE DOIS. Esta tabela esta no Apendice 4. 


Ao calcular o numero de bytes saltados para tras, devemos incluir os 2 bytes gastos peia 
propria instrugao. Observe o exemplo: 


17000 

17001 

17002 

17003 

17004 


18 > JR —4"' 
FC » - 


estes 4 enderegos estSo envolvidos no salto, ser$ 
realizada a instrugao do enderego 17001. 


Observe agora um detalhe muito importante: voce NAO PODE fazer JR —1 ou JR —2. 
JR —2 (18 FE) e um loop infinito, e o unico recurso sera desligar ocomputador. 

Faremos agora um programa para exemplificar o salto relativo para tr£$. Atengao, pois e 
o programa mais curto que enche a tela. 


PROGRAMA 04 


1 REM 5 caracteres quaisquer 

16514 3E ) 

16515 17 > 

16516 D7 

16517 18 

16518 FD 


i 


LD A,23 
RST 10 
JR-3 


Ap6s a instrugao JR -3, o programa volta ao enderego 16516, ou seja, £ instrugao 
RST 10. 


JR -*5(18 FB) tambem funcionaria, mas nao h£ necessidade de recarregar o acumulador, 
pois RST 10 NAO destroi os registros. 

A instrugao JR e mais economica do que JP (2 bytes x 3 bytes), mas necessita mais 
cuidados para ser usada: e necess$rio contar cuidadosamente o niimero de bytes a serem 
saltados, principalmente nos saltos para trSs. 

Nos sa/tos para tras, nao esquega de incluir os 2 bytes da propria instrugao . 


2.6 


EXERCfCIOS 

11 Fa?a a desmontagem do programa abaixo. Depois responda &$ perguntas. 

16514 3E » .. 

16515 17 > 

16516 CD \ 

16517 FI > . 

16518 07 ' 

16519 18 ) . 

16520 F9 » 
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a) £ necessaria uma linha 0 REM com quantos caracteres?. 

b) Por que o enderepo 16520 content F9 e nao FB? . . . .. 

c) Aproveitando a linha 0 REM, fapa: 

10 RAND USR 16514 
20 CLS 

Digite RUN e responda: a linha 20 funciona? Por que? .... 

Acrescentar 16521 C9 (RET) resolveria o problema?.. 

12 Que aconteceria com um programa que contivesse a instrupao 

18 FE (JR —2)?.... 

13 Um desafio. Vamos escrever um programa BASIC, e voce devera converte-lo para 
ASSEMBLY. 

10 PRINT A; 

20 PRINT D; 

30 GOTO 10 

Naturalmente este programa enche a tela com as letras A e D. Sugerimos a seguinte 
estrutura: 

INfCIO -*■ LD A,codigo do caractere A 

RST10 

LD A,codigo do caractere D 
RST 10 
JR INfCIO 

Claro que JP INl'ClO tambem serviria, mas JR e mais economico. 

RESPOSTAS DOS EXERCI'CIOS 


09 

a) JUMP, salto, GOTO 

b) C3 



10 

0 REM 8 caracteres quaisquer. 




INfCIO-- 16514 

16515 

3E » 
2D J 

LD A,45 


16516 

CD x 



16517 

08 

> CALL 2056 


16518 

08 ' 



16519 

C3 ) 



16520 

82 

^ JP 16514 


16521 

40 ’ 

I 


RAND USR 16514; CALL 2056; todos os registros. 

11 

16514 3E 1 ld A 23 

16515 17 » LU ’ 




16516 CD \ 




16517 FI > CALL 2033 



16518 07 1 
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16519 

16520 


18 

F9 


JR —7 


a) E necessaria uma linha 0 REM com 7 caracteres 
ocupa 7 bytes. 


quaisquer, poiso programs 


b) F9, na convenpao de complemento de dois, corresponds a —7; o que leva o 
programa de volta ao enderego 16514. 


FB corresponde a —5, o que levaria o programa ao enderetpo 16516, ou seja, 
CALL 2033 sem o registrador A estar carregado (pois ja teriam sido destruidos os 
registros pela propria instrucao CALL 2033). Falando com simplicidade: CRASH. 

c) Nao, nao funciona, da mesma maneira que nao funciona a linha 40 do programa 
BASIC abaixo: 


10 LET A = 23 
20 PRINT CHR$ A; 

30 GOTO 10 
40 CLS 

Acrescentar 16521 C9 (RET) nao resolve o problema, pois o programa nao 
chegara jamais a este endere<?o! 

Mais tarde aprenderemos a contornar este problema. 

12 0 programa entraria em loop infinito, pois a instrupao 18 FE (JR —2) volta ao 
in icio dela mesma. • 

13 0 REM 8 caracteres quaisquer 

INfCIO -► 16514 

16515 

16516 

16517 

16518 

16519 

16520 

1 6521 


3E 

26 

D7 

3E 

29 

D7 

18 

F8 


LD A,38 
RST 10 
LD A,41 
RST 10 
JR —8 
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3.1 


INTRODUQAO 

Escrever uma string usando RST 10 torna o programs longo, pois e necessario carregar o 
acumulador e chamar RST 10 para cada caractere. Como exempio da maneira como voce 
NAO deve usar para escrever strings na tela, observe atentamente o programa abaixo. 


PROG RAMA 05 


(13 bytes) 


0 REM 13 caracteres quaisquer 


16514 

3E 

26 

LD A,38 

16516 

D7 


RST 10 

16517 

3E 

36 

LD A,50 

16519 

D7 


RST 10 

16520 

3E 

34 

LD A,52 

16522 

D7 


RST 10 

16523 

3E 

37 

LD A,55 

16525 

D7 


RST 10 

16526 

C9 


RET 


Voce deve ter reparado que escrevemos as instruqoes de maneira urn pouco mais 
compacta. Os bytes que formam uma instrugao sao escritos em sequencia horizontal e, 
quanto aos enderegos, e dado apenas o enderepo inicial de cada instrugao. 

Sobre o programa em si, vamos agora a alguns ... 


3.2 

EXERCICIOS 

14 Sem rodar o programa, responda: 

a) O que e!e faz?. .. 

b) Se, aproveitando a linha 0, fizermos 

10 RAND USR 16514 
20 CLS 
30 GOTO 10 

funciona? Em caso afirmativo, o que faz? 


Capitulo 



ESCREVENDO STRINGS NATELA 








c) Modifique o final do programa 05 para que ele encha a tela com a string que eie 
escreve. Duas solugoes sao possiveis: uma usando um salto absoluto para 16514, 
outra usando salto relativo. Escreva ambas as solucoes. 


1*) Com salto absoluto: 
1652.. 

2?) Com salto relativo: 
1652. 


) Agora o programa tem.bytes, 

y a I inha 0 REM tem de $er aumentada. 

i Agora o programa tem.bytes, 

) a linha 0 REM tem de ser aumentada. 


d) Se, aproveitando a linha 0 do programa MODIFICADO POR VOCE como 
sugerido no item c, fizermos 


10 RAND USR 16514 
20 CLS 
30 GOTO 10 


funciona? Em caso afirmativo, o que faz?. 


15 Quantos bytes seriam necessarios para escrever o alfabeto completo na tela, usando 
a tecnica do programa 05?.bytes. 

3.3 

PARES DE REGISTRADORES 

A resposta do exerci'cio 15 mostra claramente a impossibilidade pr^tica de usarmos 
RST 10 para escrever uma string longa. Logo, e necessario um outro processo. Existem 
varios, todos eles usando pares de regist rad ores. Se achar que vale a pena, e se ja se julgar 
em condigoes de entender, leia o Apendice 1. 

Por enquanto, o que nos interessa e que registradores de 8 bits podem se juntar, formando 
pares de registradores que aceitam um carregamento de 16 bits. 

Podemos carregar diretamente os pares de registradores BC, DE e ML com numeros entre 
0e 65535 (0000 ate FFFF). 

B, DeH conterao o byte MAIS significativo; C, E e L conterao o byte MEN OS 
significativo. 

Se voce fala ingles, gostara desta observagao: o par HL usa estas letras devido a High Low 
(alto baixo), para lembrar ao usuario que H tem a parte alta (High) do numero (o byte 
mais significativo), e que L tem a parte baixa (Low) do numero (o byte menos 
significativo). 

Assim, para que o par HL contenha o valor 704 decimal, e necessario que L contenha 
192d (C0h) e que H contenha 2d (02h). Observe: 

704 

192 

✓ 

C0h, conteudo 
de L 


|256 

2 

02h, conteudo 
de H 
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Como ja aconteceu com CALL e bom JP, ao escrever a instrupao de carregamento de um 
par de registradores, primeiramente o byte monos significativo, depois o byte mots 
significative. 

Vamos agora aprender a carregar (LOAD) estes pares de registradores. A instrupao tern o 
aspecto geral 


LD rr,NN 


onde 

LD —» mnemonico de LOAD 

rr .—* par de registradores (BC, DE ou HL) 

NN —* numero entre 0 e 65535d (0000e FFFFh) 

Novamente, a correspondence com BASIC e simples: 

BASIC ASSEMBLY 

LDHU1000 LET HL= 1000 

LD BC,704 LET BC =704 

A instrupao custa 3 bytes: um para a instrupao propriamente dita e dois para o numero. 
A tabela abaixo fornece os codigos hexa destas instrupoes. 


LD BC,NN 

01. 

LD DE,NN 

11. 

LD HL,NN 

21. 


3.4 


EXERCICIOS ■ 


16 Complete as lacunas: 

INSTRUCpAO 

a) LD DE,. 

b) LD BC,. 

c) LD —,36 

d) LD. 

17 Muito cuidado com a inversao! Complete as lacunas: 

a) LD BC,. .25 35 

b) LD BC.. 


CODIGO HEXA 

82 40 {nao esquega da inversao \) 


.37 12 

01 . 

21 0B 6B 


.35 25 


3.5 __ 

COLOCANDO UMA STRING NATELA 

Provavelmente o processo mais facil de coiocar uma string na tela seja chamando (CALL) 
a sub-rotina 2923 (0B 6B em hexa). Para cham£-la, <3 necessario que o par de registradores 
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DE contenha o enderepo de inicio da string, e o par BC contenha o numero de caracteres 
da string (LEN). Se voce fala ingles, outra vez uma observapao util: o par BC e o Byte 
Counter (contador de bytes). 

A estrutura de montagem do programa e a seguinte: 

a) Digita-se a string no inicio da linha de REM. Isto permite-nos saber o enderepo 
do infcio da string, que deve ser carregado em DE: 16514. 

b) Conta-se cuidadosamente quantos caracteresTompoem a string, sern esquecer 
dos espapos. Este numero sera carregado em BC. 

Como exemplo, vamos colocar na tela a string LINGUAGEM DE MAQUINA. Conte: esta 
string tem 20 caracteres (incluindo os dois espapos). Logo, ela ocupar^ os enderepo$ de 
16514 ate 16533 {16533 = 16514 + 20—1). Enfatizando:a string deve ser cofocada no 
inicio da linha de REM . 

Assim s'endo, o primeiro enderepo de programa (nao de dados) sera 16534. 

Apos a digitapao da string, precisamos reservar espapo para o programa. Vamos calcuiar 
quantos bytes ele gastara. 

c) Calculo do numero de bytes de programa: 

— carga do par de registradores DE com o enderepo inicial da string (16514): 

3 bytes LD DE,16514~> 11 82 40 

— carga do par de registradores BC com o numero de caracteres a serem 
impressos (20): 

3 bytes LD BC,20 01 14 00 


— chamada da sub-rotina 2923 da ROM, que imprime strings: 

3 bytes ^ CALL 2923 CD 6B 0B 

— retorno ao BASIC: 

1 byte RET C9 
Agora estamos prontos. 


PROGRAMA 06 


(20 bytes +10 bytes) 


0 REM LINGUAGEM DE MAQUINA e mais 10 caracteres quaisquer. 
(endereposde 16514 a 16533 ocupados pel a string) 


16534 

11 82 40 

LD DE,16514 

16537 

01 14 00 

LD BC,20 

14540 

CD6B0B 

CALL 2923 

16543 

C9 

RET 


Certos cuidados devem ser tornados na ’entrada do programa no computador: 

— o enderepo inicial e 16534, e nao 16514 como de habito; 

— o enderepo final e 16543, o enderepo da famosa instrupao RET; 

— assim sendo, altere convenientemente a linha 9000 do programa de carga que 
demos no item 1.8; 
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— para rodar o programa, digite RAND USR 16534 (e nao RAND USR 16514 
como de costume); 

— este ultimo cuidado e vital, senao... CRASH! 


3.6 

EXERCi CIOS 

Estes exercicios sao muito importantes. Nao passe adiante sem resolve-los. 

18 Faga urn programa que escreva o alfabeto completo na tela. (Maistarde, faremos 
urn programa bastante mais curto que faz isto tambem.) Calcuie cuidadosamente os 
enderegos, isto e critico. 

19 Prepare urn programa que encha a tela com a string 

ETeditora B campus D 

Como voce pode contar, esta string tem 16 caracteres; logo, "cabe" 2 vezes em cada linha, 
fazendo urn belo efeito de video. 

Substitua a instrugao RET por um salto relativo que leve ao primeiro byte de programa, 
nao de dados. 

Muito cuidado com os enderegos e com o salto para tras. Nao esquega de consultar a 
tabela de compiemento de dois. 

Bom trabalho... 


RESPOSTAS DOS EXERCICIOS 

14 a) Imprime na tela a string AMOR. 

b) Sim, funciona. Faz a palavra AMOR piscar no canto superior esquerdo da tela, 

c) Primeiro que tudo esperamos que voce tenha lembrado d eretirar 16526 C9 RET, 
do contrario... nao funcionara! 

1*) Com salto absolute: 

16526 C3 82 40 JP 16514 

Agora o programa tem 15 bytes, logo nao esquega de aumentar a linha 
0 REM! 

2^) Com salto relativo: 

16526 18 F2 JR-14 

Agora o programa tem 14 bytes. 

d) Nao, nao funciona, 0 programa nao atinge a linha 20. P2ra com codigo 5/10. 

15. 3 x 26 + 1 = 79 bytes 

3 para cada letra, 3 bytes (2 para carga do acumulador e 1 para RST 10) 

26 -+ 26 letras no alfabeto 
1 1 byte para RET 
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16 

a) LD DE,16514 

11 

82 

40 


b) LD BC,55 

01 

37 

00 


c) LD BC,36 

01 

24 

00 


d) LD HL,27403 

21 

0B 

6B 

17 

a) LDBC,13605 

01 

25 

35 (53 x 256 + 37 = 13605) 


b) LD BC,9525 

01 

35 

25 (37 x 256 + 53 = 9525) 

18 

BC deve ser carregado corr 

i 26 (26 letras do alfabeto). 


DEdeve ser carregado com 16514 (enderepo inicial da string). A string ocupa o$ 
enderepos de 16514 ate 16514 + 26 — 1 = 16539. 

Logo, o primeiro enderepo de programs e 16540. Como o programs gasta 10 bytes, 
o enderepo final e 16540 10 — 1 = 16549. 

0 REM ABCDEFGHIJKLMNOPQRSTUVWXYZ e mais 10 caracteres quaisquer. 


16540 

ii 

82 

40 

LD DE,16514 

16543 

01 

1A 

00 

LD BC,26 

16546 

CD 

6B 

08 

CALL 2923 

16549 

C9 



RET // RAND USR 16540 


19 BC deve ser carregado com 16 (numero de caracteres da string). 

DE deve ser carregado com 16514 (enderepo inicial da string). 

A string ocupa os endereposde 16514 at6 16514 + 16 — 1 = 16529. 

Logo, o primeiro enderepo do programs e 16530. 

Calculamos o numero de bytes do programs, para sabermos a magnitude do salto 
relativo para trfis. 

LD BC,16 3 bytes 

LD DE,16514 3 bytes 

CALL 2923 3 bytes 

JR. 2 bytes 

TOTAL -► 11 bytes 
Logo, precisamos de JR —11. Vamos ao programs. 


0 REM i 

EDITORA S3 

CAMPUS 

JS e mais 11 caracteres quaisquer. 

16530 

11 

82 

40 

LD DE,16514 

16533 

01 

10 

00 

LD BC,16 

16536 

CD 

6B 

0B 

CALL 2923 

16539 

18 

F5 


JR-11 //RAND USR 16530 
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4.1 


A SUB-ROTINA PRINT AT 

Existe na ROM uma sub-rotina que testa os parametros do comando PRINT AT 
(iinha,coluna) quando este e usado a partir do BASIC. Seu enderepo ( 

hexa), e ela pode ser chamada (CALL) em nossos programas em ASSEMBLY. 

A sub-rotina usa os registradores B e C, sendo que o numero da linha (de 0 a 211) deve ser 
colocado no registrador B, e o numero da coluna (de 0 a 31) e colocado no registrador C. 

Vamos usar urn truque: se fizermos LD B,linha e LD C coluna, gastaremos 4 bVtes Assim, 
usaremos LD BC.o que gasta 3 bytes. Apenas e necessano tomar cuidado com a 

inversao! 

Devemos carregar BC e chamar a sub-rotina ANTES de carregar o acumulador A com o 
codigo do caractere a ser impresso, pois esta sub-rotina (como todas as outras que ja 
vimos) "limpa" todos os registros. 

O efeito de CALL 2293 e equivalente a instrupao BASIC 


PRINT AT linha,coluna; 
pois posiciona o cursor de impressao (invisi'vel). 

Como exemplo, vamos escrever urn programa que coloque urn asterisco no meio da tela 
(em 11,16). 


PROGRAMA 07 


(10 bytes) 


0 REM 10 caracteres quaisquer 


16514 

01 

10 

16517 

CD 

F5 

16520 

3E 

17 

16522 

D7 


16523 

C9 



LD BC,2832 (B = 11;C = 16) 

CALL 2293 

LD A,23 

RST 10 

RET 


Algumas observapoes se fazem necessarias. 

ia\ o numero 2832 nao tern nenhum significado para nos. Estamos apenas 

economizando me m6ria. S.fizS S5e mo S LO B.11 (an. B a M a LD CJ6 (am 
Ca coluna), gastar(amos4 bytes. Fazendo LD BC.2832 (2832 - 11 x 256 + 16, 
onde 11 = linha = conteudo de B[0Bh] e 16 = coluna = conteudo de C[10h]), 
gastamos apenas 3 bytes. Nao calcularemos mais este numero. Para que. 

2?) Todo o cuidado e pouco para nao esquecer da inversao (o conteudo de Ce 
colocado primeiro ). 


Capriulo 



ESCOLHENDO O LOCAL DE IMPRESSAO 





3*) A instrugao LD A,23 nao pode ser colocada no infcio do programa, pois 
CALL 2293 a destruiria. 


4.2 

EXERCI CIOS 

20 Elabore um programa que coloque urn ponto na ultima posigao da tela, ou seja, em 
21,31. 

21 Prepare um programa que encha a metade inferior da tela com o caractere 08. Deve 
ter a mesma estrutura que o programa 07, substltuindo-se o RET por um salto 
relativo para tras. 

4.3 


COMBJNANDO SUB-ROTINAS DA ROM 


No programa 06 colocamos na tela a string LINGUAGEIVI DE MAQUINA, atravesda 
sub-rotina 2923 (0B6B). Vamos combinar este programa com a chamada de 2293 (08F5) 
para centra-la na tela. 


PROGRAMA 08 


(20 bytes + 16 bytes) 


0 REM LINGUAGEM DE MAQUINA e mais 16 caracteres quaisquer 


16534 

01 

06 

0B 

LD BC,XXXX (B = 11; C = 6) 

16537 

CD 

F5 

08 

CALL 2293 

16540 

11 

82 

40 

LD DE,16514 

16543 

01 

14 

00 

LD BC,20 

16546 

CD 

68 

0B 

CALL 2923 

16549 

C9 



RET 


Observe que fizemos B“11eC = 6, para posicionar o cursor invisfvel de impressao em 
11,6. Naturalmente isto tern de ser a primeira parte do programa, pois CALL 2293 destroi 
o conteudo dos registradores. 

Para rodar o programa, voc§ lembra: RAND USR 16534. 


4.4 

EXERCICIOS 

Novamente, exercfcios importantes. Nao passe adiante sem resoive-los. E necessario que 
voce se acostume a cafcular enderegos e saltos para tr2s. Faga todo o possfvel — vocd 6 
capaz — para resolve-los sem ,J colar" as respostas. 

22 Escreva um programa que coloque a palavra COMPUTADOR no final da setima 
linha da tela. 

23 Escreva um programa que coloque a string *FIM* no final da ultima linha da tela. 
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24 Escreva um programa que encha as 7 linhas inferiores da tela com a string 

*MICRO*SINCLAIR*. Como voce pode contar, esta string tern 16 caracteres, logo 
"cabe" duas vezes em cada iinha. Raciocine cuidadosamente para qua! enderego 
voce vai dirigir seu salto para tras. 


RESPOSTAS DOS EXERCfCIOS 

20 0 REM 10 caracteres quaisquer 

16514 01 IE 15 

16517 CD F5 08 

16520 3E IB 

16522 D7 

16523 C9 

21 Metade superior da tela: 11 linhas, de 0 a 10 
Metade inferior da tela: 11 linhas, de 11 a 21 

Assim sendo, a primeira posigao de impressao tern de ser 11, 0. 


0 REM 11 caracteres quaisquer 


16514 

01 

00 0B 

LD BC,XXXX (B - 11, C = 0) 

16517 

CD 

F5 08 

CALL 2293 

16520 

3E 

08 

LD A,8 

16522 

D7 


RST 10 

16523 

18 

FD 

JR —3 


Se voce fez 18 FB (JR —5) tambem serve, embora seja desnecessario recarregar o 
acumulador, porque RST 10 NAO destroi os registros. 

Qualquer salto diferente destes nao funciona. Raciocine e conclua por que. 
Deixamos este trabalho para voce. 

22 Antes de mais nada, setima Iinha e a de numero 6. Como a palavra COMPUTADOR 
tem 10 caracteres, ocupa da posigao 22 ate a posigao 31. Logo, o comando BASIC 
seria 

PRINT AT 6,22;"COMPUTADOR" 

0 REM COMPUTADOR e mais 16 caracteres quaisquer 


16524 

01 

16 

06 

LD BC,XXXX (B = 6; C = 22) 

16527 

CD 

F5 

08 

CALL 2293 

16530 

11 

82 

40 

LD DE.16514 

16533 

01 

0A 

00 

LD BC,10 

16536 

CD 

6B 

0B 

CALL 2923 

16539 

C9 



RET //RAND USR 16524 


23 O programa e equivalente ao comando BASIC 

PRINT AT 21,27 ;"*FIM*" 

0 REM *FIM* e mais 16 caracteres quaisquer 
{enderegos de 16514 a 16518 ocupados pela string) 


LD BC,XXXX (B = 21; C = 21) 
CALL 2293. 

LD A,27 
RST 10 
RET 
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16519 

01 

IB 

15 

LD BC,XXXX (B = 21; C “ 27) 

16522 

CD 

F5 

08 

CALL 2293 

16525 

11 

82 

40 

LD DE,16514 

16528 

01 

05 

00 

LD BC,5 

16531 

CD 

6B 

0B 

CALL 2923 

16534 

C9 



RET //RAND USR 16519 

Primeiramente, as 7 linhas inferiores da tela sao as linhas de numeros 15 a 21. Logo, 

a primeira posipao de impressao e 15,0. 


0 REM *MICRO*SINCLAIR* 

e mais 17 caracteres quaisquer 

(enderepos de 16514 ate 16529 ocupados pela string) 

16530 

01 

00 

0F 

LD BC,XXXX (B = 15, C = 0) 

16533 

CD 

F5 

08 

CALL 2293 

16534 

11 

82 

40 

LD DE,16514 

16537 

01 

10 

00 

LD BC,16 

16540 

CD 

6B 

0B 

CALL 2923 

16543 

18 

F5 


JR-11 // RAND USR 16530 


Observe que o salto relativo para tra$ deve voltar ao trabalho de colocapao da string 
na tela, e nao ao posicionamento do cursor. Caso contrario, nao sairemos da 
primeira vez em que a string e impressa. 
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5.1 . 


INTRODUCAO 


Neste capitulo vamos aprender a fazer loops em linguagem ASSEMBLY, ou seja, a 
substituira instrugao FOR/NEXT do BASIC. 

Porem, e necessario enriquecer o conjunto de Instrucoes que conhecemos, para que 
possamos ter maior flexibilidade. Recapitulando — sabemos apenas 8 instrugoes: 


a) LD r,N 

b) LD rr,NN 

c) RST10 

d) CALL incondicional 

e) JP incondicional 

f) JR incondicional 

g) RET 

h) HALT 


(Capftulo 1) 
(Capftulo 3) 
(Capitulo 1) 
(Capftulo 1) 
(Capitulo 2) 
(Capitulo 2} 
(Capitulo 1) 
(NAO USE!) 


Isto e muito pouco. A primeira coisa que precisamos ver meihor e como trabalha a fungao 
USR. 


5.2 


A FUNQAO USR 

USR e o mnemonico de USE -ROUTINE, ou seja, programas ASSEMBLY $ao 
considerados como $ub-rotinas do BASIC. Assim, um programa BASIC 


50.USR xxxxx 

60. 


ao atingir a linha 50 executaria a sub-rotina do enderego xxxxx e voltaria (ao encontrar 
RET) para executar a linha 60. 

Mas... USR e uma funcao, nao um comando. Assim, necessita um comando antes, do 
contrario voce obtem erro de sintaxe. Temos usado RAND USR xxxxx, onde RAND nao 
"faz" absolutamente nada, apenas impede o erro de sintaxe. 

O comando LET tambem serviria, da seguinte maneira: 

LET BRUXA = USR xxxxx, 

onde BRUXA substitui qualquer nome valido para uma variavel, e xxxxx e o enderego 
inicial do nosso programa ASSEMBLY. 


Capitulo 


FAZENDO LOOPS - 1? PARTE 







Ao encontrar a fungao USR, o computador roda o programs ASSEMBLY, porem desta 
vez com uma pequena diferenga: um valor e atribufdo a variavel BRUXA. Qual valor? £ 
isto que precisamos entender. 

USR e uma fungao BASIC, assim precisa de um argumento (valor) e devolve um valor. 
Raciocinemos com a fungao SQR do BASIC. Em 

LET BRUXA = SQR 256 

256 e o argumento, e & variavel BRUXA e atribufdo o valor 16, pois yj2 56 = 16. Em 
LET BRUXA = USR xxxxx 

o argumento de USR e o enderego xxxxx que fornecemos (16514, por exemplo), e este 
valor e carregado no par de reglstradores BC . O programs roda, e o valor atribufdo a 
variavel BRUXA e o valor contido ho par de registradores BC apos rodar o programa. 

Vamos entender isto ainda melhor. Para tanto, vejamos um programa que nao faz nada . 


PROGRAMA 09 


(1 byte) 


16514 C9 RET 

Para que voce possa ver isto com facilidade no micro, nao vamos usar o carregador 
ASSEMBLY. 

Limpe a memoria (NEW ou RAND USR 0), e digite a linha 
1 REM TAN 

Para obter TAN, voce precisa do cursor §3 • NAO digite T, depois A, depois N. TAN 
(fungao BASIC tangente) esta na tecla E. 

Explicagoes: 

C9h = 201d = codigo do "caractere" TAN. 

Digite agora: 

10 LET L = USR 16514 
20 PRINT L 

Rode o programa, e voce obter£ no canto superior esquerdo do video 16514! 

Quando o micro encontra USR 16514, carrega o par de registradores BC com 16514. 
Assim sendo, temos B com 64 (40h) e C com 130 (82h), pois 

16514 = 64x256+ 130 

Agora, o micro roda o programa ASSEMBLY do enderego 16514. La esta RET. Assim, o 
programa retorna ao BASIC, sem que B e C sejam alterados. Logo, o valor do par BC 
ainda e 16514, e este valor e atribufdo £ variavel L. 

Assim, a linha 20 PRINT L imprime no canto superior esquerdo da tela o valor 16514. 
Naturalmente poderia ter sido usado, em vez do programa BASIC escrito, o seguinte: 

1 REM TAN 
10 PRINT USR 16514 

0 efeito seria o mesmo. 


45 




5.3 


mais uma instruqao ASSEMBLY - NOP 

Vamos fazer outro programa, que tambem nao faz nadal Para isto, precisamos de uma 
nova e sensacional instrupao ASSEMBLY: a instrupao NOP. 

NOP e o mnemonico de NO OPERATION. Por pior que esteja o seu ingles, voce 
percebeu: esta instrupao nao faz nada, e o programa simplesmente passa para a proxima 
instrupao. Seu codigo e 00. 


NOP 00 


Veja entao o incrfve! 


PROGRAMA 10 


16514 00 NOP 

16515 C9 RET 


(2 bytes) 


Novamente vamos colocar isto no micro SEM usar o carregador ASSEMBLY. Digite 
(aposNEW ou RANDUSR0): 

1 REM — TAN 

‘-sempre usaremos este sfmbolo para um espapo necess£rio 


10 PRINT USR 16514 

Verifique se voce digitou corretamente a linha 1 REM espaco TAN. Rode o programa e... 
novamente 16514, 

Claro, nao? O programa e fantastico. A primeira instrupao ordena que ele nao fapa nada, e 
a segunda, que retorne ao BASIC. Naturalmente os registros de B e C nao sao alterados; 
consequentemente o valor de retorno e 16514. 

Naturalmente, podemos fazer um programa que altere o valor de retorno, por aiterar o 
conteudo dos registradores B e C. Por exemplo, veja o 





PROGRAMA 11 

16514 

06 

00 

LD B,0 

16516 

0E 

64 

LD C,100 

16518 

C9 


RET 


Coloque este programa no micro com o carregador ASSEMBLY, e responda: a digitapao 
de PRINT USR 16514, o que fornece? 100, e claro! 

Como voce sabe, ao encontrar USR 16514, o computador carrega BC com 16514, ou seja, 
B com 64 (40h) e C com 130 (82h), pois 64 x 256 + 130 “ 16514. 

Mas... a primeira instrupao coloca 0 em B, e a segunda 100 em C. 

Logo, o par BC agora contem 100, pois0 X 256 + 100 = 100. 
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RET fazavolta ao BASIC, eo par BC agora contem 100. Assim, PRINT USR 16514 
imprime na tela o valor atual do par de registradores 8C: 100, 

5.4 


EXERCI CIOS 


25 Complete as lacunas apos analisar este programa SEM RODA-LO. Justifique $ua 
resposta. 

0 REM 3 caracteres quaisquer 

16514 06 00 LD B,0 

16516 C9 RET 

PRINT USR 16514 

O resultado Smpresso na tela e.. ... pois .x 256 +. . .... =. 

L-*- conteudo decimal do registrador. 

—- conteudo decimal do registrador. 

26 Fa^a o mesmo que no exercfcio anterior. 

0 REM 3 caracteres quaisquer 

16514 0E 00 . 

16516 C9 . 

PRINT USR 16514 

0 resultado impresso na tela e.. pois.. x 256 4-. t .=. 

L- conteudo decimal do registrador. 
-► conteudo decimal do registrador. 

27 Ainda o mesmo exercfcio. 


0 REM 4 caracteres quaisquer 

16514 01 22 00 . 

16517 C9 

PRINT USR 16514 

O resultado impresso na tela e.. pois.. x 256 +. i .=. 

conteudo decimal do registrador. 

-► conteudo decimal do registrador. 

28 Este program inha nao faz nada de espetacular, e apenas um DESAFIO para vermos 
se voce ainda tembra bem de JR, que estudamos no Capftulo 2. Desmonte-o, e diga 
SEM RODA-LO o que aparece na tela atraves de PRINT USR 16514. 

0 REM 9 caracteres quaisquer 


16514 

06 

00 

16516 

0E 

3A 

16518 

18 

02 
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16520 0E BA 

16522 C9 

PRINT USR 16514 


5.5 ___ 

FAZENDO LOAD DE UM REGISTRADOR PARA OUTRO 

Em BASIC, voce pode definir uma variavel a partir de outra predefinida. Por exemplo: 

10 LET BRUXA = 23 
20 LET CALDO = BRUXA 

Isto copia na variavel CALDO o valor da variavel BRUXA, que nao precisa ser novamente 
explicitado na linha 20. 

Em ASSEMBLY, isto e possfvel dentro de certos liinites. 1= possivel copiar o conteudo de 
urn registrador de 8 bits noutro registrador de 8 bits, ou seja, e valida a instrugao 


LD r,r 

A instrugao LD B,A copia no registrador B o conteudo do registrador A. 0 conteudo de B 
passa a ser igual ao conteudo de A, que nao e alterado. 

Vamos supor que ANTES da instrugao LD B,A, A contenha 23d e B contenha 128d. 
APOS a instrugao LD B,A, tanto B quanto A conterao o valor 23d. 

A tabela abaixo contem os codigos das instrugoes LD r,r. 


LD 

A 

B 

C 

D 

E 

H 

L 

A 


78 

79 

7A 

7B 

7C 

7D 

B 

47 

i?!!© 

41 

42 

43 

44 

45 

C 

4F 

48 

sisi 

4A 

4B 

4C 

4D 

D 

57 

50 

51 

1S86S 

53 

54 

55 

E 

5F 

58 

59 

5A 

5B 

5C 

• 5D 

H 

67 

60 

61 

62 

63 

64 

65 

L 

6F 

68 

69 

6A 

6B 

6C 

@|@1 


Observagoes: 

a) a coluna (vertical) da esquerda tern o "pnmeiro" registrador (destino). 

b) a linha (horizontal) superior tem o "segundo" registrador (fonte). 
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c) se voce entendeu, confira que o codigo hexa para LD B,H e 44, e para 
LD H,B 6 60, 

d) observe que as instrugoes cujos codigos estao hachurados (LD A,A; LD B,B; 

LD C,C etc) NAO fazem absolutamente NADA. Sao, de certa maneira, 
equivalentes a NOP. 

e) NAO EXISTEM INSTRU£OES LD rr,rr NEM LD r,rr NEM LD rr,r. Sendo mais 
claro: 

LD BC,HL \ 

LD A,HL > NAO EXISTEM! 

LD HL,A ' 

f) e possfvel simular LD BC,HL atraves de LD B,H e LD C,L. 


5.6 


EXERCI CIOS 

29 Desmonte o programa abaixo e de a sua sat'da de vfdeo SEM RODA‘LO. 

0 REM 6 caracteres quaSsquer 

16514 3E 2A . 

16516 06 00 . 

16518 4F . 

16519 C9 . 

Apos PRINT USR 16514, voce obtera na tela.. pois. X 256 + 


30 Mesmo exercfcio anterior. 

0 REM 7 caracteres quaisquer 

16514 26 00 . 

16516 IE 10 . 

16518 44 . 

16519 4B . 

16520 C9 . 

Apos PRINT USR 16514, voce obtera na tela.. pois.x 256 + 


5.7 


APRENDENDO ASOMAR 

Vamos ver um ultimo assunto antes de comegarmos a aprender loops. Vamos aprender a 
somar em ASSEMBLY. Existem muitas instrugoes que somam, vamos aprender apenas a 
instrugao do tipo 


ADD A,r 
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Esta instrugao adiciona ao acumulador A o conteudo do registrador de 8 bits colocado a 
direita. 

0 registrador da esquerda e obrigatoriamente A, nao existe uma instrugao tipo ADD B,C. 
O conteudo do registrador da direita nao 6 alterado. 

Dois exemplos deixarao isto claro. 

/<? exempfo: Suponha que A contenha 50d, e C 22d. Ap6s a instrugao 

ADD A,C, A passa a ter 72d, e C continua tendo 22d. 0 Exercfcio 33 e baseado num 

programs com este esquema. 

2° exemplo : Suponha que A contenha 200d, e que C contenha 100d. Apos a instrupao 
ADD A,C, A deveria conter 300d, o que e impossfvel, pois o maior numero decimal que 
urn registrador de 8 bits pode conter e 255. Assim, houve um OVERFLOW 
(transbordamento). No acumulador A “fica” o que exceder 256, ou seja, 300 — 256 44. 

A bem da verdade, vamos dizer que o computador "anota" que houve transbordamento 
num registrador especial chamado F. Breve vamos estudar isto, 

O Exercfcio 34 e baseado num programa com este esquema. 

A tabela abaixo fornece os codigos hexa das instrupoes ADD A,r. 


ADD A,A 

87 

ADD A,B 

80 

ADD A,C 

81 

ADD A,D 

82 

ADD A,E 

83 

ADD A,H 

84 

ADD A,L 

85 


5.8 


EXERCfClOS 

31 Vejamos se voce percebeu a analogia com BASIC. A instrupao ADD A,C e, 

guardando as limitapoes que vimos, equivalente $ instrupao BASIC. 

32 Supondo que o conteudo do registrador A seja menor ou igual a 127, qual o novo 

conteudo de A apos a instrupao ADD A,A? Sera sempre igual ao. 

33 Desmonte o programa abaixo, e diga qual a safda de video, apos PRINT USR 16514 
SEM RODA-LO. 

0 REM.caracteres quaisquer 


16514 

3E 

22 

16516 

0E 

50 

16518 

81 


16519 

4F 


16520 

06 

00 

16522 

C9 
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Apos PRINT USR 16514 voce obtera na tela., pois. x 256 + 


34 Mesmo exercfcio anterior, mas... CUIDADO COM 0 OVERFLOW! 
0 REM.caracteres quaisquer 


16514 

3E 

90 

16516 

06 

A0 

16518 

80 


16519 

4F 


16520 

06 

00 

16522 

C9 



Apos a instrupao do enderepo 16518, o acumulador contem.. pois 

.=.- 256. 

Assim sendo, PRINT USR 16514 produz na tela., pois. x 256 + 


35 $e, no programs anterior, esquecessemos 16520 06 00, fazendo 16520 C9, quai 

seria a saida de video? Seria., pois.=. x 256 +. 

36 O programs abaixo Simula a instrupao ADD D,E, que NAO existe. Desmonte-o e 
diga a saida de video, SEM RODA-LO. 

0 REM.caracteres quaisquer 


16514 

16 

66 

16516 

IE 

34 

16518 

7A 


16519 

83 


16520 

4F 


16521 

06 

00 

16523 

C9 



PRINT USR 16514 

Apos PRINT USR 16514, a saida e.pois.X 256 + 


5.9 


LOOPS - 0 CONCEITO DE CONTADOR 

Analisemos o programs BASIC abaixo: 

10 FOR B = 1 TO 32 
20 PRINT 
30 NEXT B 

0 programa enche a primeira linha da tela com *. A variavel de controle do loop (B) 
"conta" quantas vezes o * e impresso na tela. Isto e relativamente simples de obter em 
ASSEMBLY. 

Um dos registradores do microprocessador Z-80 e privilegiado como contador — e o 
registrador B. 
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Assim, a instrugao LD B,32, de uma certa forma, substitui a linha 10 do programa BASIC 
acima — ela faz de B urn contador para 32 vezes. 

Sabemos como substituir a linha 20. Senao, confira: 

LD A,23 
RST 10 

Agora veremos como obter o loop — atraves da instrugao DJNZ. Este impronunciavel 
conjunto de letras e uma das poderosas instrugoes a nosso dispor. 

DJNZ 6 o mnemonico de Decrement B and Jump relative if tot Zero. Tentando traduzir: 
decremente o contador B e faga um salto relativo se B nao atingiu 0. 

Se o contador B e inicializado com 14d, DJNZ vai decrementar para 13d, e saltar. Quando 
B atinge 1, e DJNZ e implementado, entao B torna-se 0, e o programa segue para seu 
proximo enderego. 

Importante: se B e inicializado com 0, entao DJNZ "decrementa-o" para FFh, ou seja, 
255, e o salto relativo acontece. 

Como todo salto relativo, ha a necessidade de 1 byte para fornecer a magnitude do salto. 

Entre 00 e 7F temos um salto para frente, e entre 80 e FF temos um salto para tras, 
baseado na tabela de complemento de dois — tudo identico a JR, so que desta vez ha um 
contador: B. 

Vejamos o codigo hexa da instrugao 


DJNZ 10 


Vamos completar entao o nosso primeiro programa que faz loop, e um programa que, 
aiem da finalidade didatica, tern finalidades praticas — depois as apresentaremos a 
voce. 


PROGRAMA 12 


(8 bytes) 


0 REM 8 caracteres quaisquer 


16514 

06 

20 

LD B,32 

16516 

3E 

17 

LD A,23 

16518 

D7 


RST 10 

16519 

10 

FD 

DJNZ —3 

16521 

C9 


RET 


Estudemos carinhosamente este programa. 

1) LD B,32... faz de B o contador para 32 caracteres em uma linha. 

2) LD A,23,.. carrega o acumulador com o codigo de *. 

3) RST 10... cotoca o asterisco na tela. 

4) DJNZ —3... coloca o asterisco na tela mais 31 vezes, pois volta ao enderego de 
RST 10. 

5) RET... apos o contador B ser zerado, volta ao BASIC. 
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Estude cuidadosamente a estrutura deste programa — ele e importantissimo. Quando tiver 
certeza de te-lo entendido, passe aos exercfcios. 

Lembra-se de que dissemos que este programa tinha finalidades praticas? E tem! Eu uso 
frequentemente esta sub-rotina em meus programas BASIC para produzir uma linha de 
separa<?ao, muito util quando entramos com diversos dados. Para chamar a sub-rotina, 
basta introduzir o RAND USR 16514 como linha de programa, e la esta a linha de 
separapao instantaneamente na tela. 0 caractere 03 e util para construir a linha. 


5.10 


EXERCiCIOS 

37 Supondo que o programa 12 esteja no seu computador, digite (modo direto) 

PRINT USR 16514 (ao invesde RAND USR 16514). Voce sabe explicar o numero 
130 que aparece na tela apos a linha de *? Outra maneira de obter este numero 130 
seria fazer (sempre modo direto) LET L = USR 16514 (que coloca a linha na tela) 
seguido de PRINT L (que "apaga" a linha e imprime 130). Insistimos: voce sabe 
explicar este numero 130? 

38 Complete a rotina abaixo para que ela produza as 5 linhas superiores da tela cheias 
com "espapo inverso". 

0 REM.caracteres quaisquer 


16514 

LD B,.., 

165. 

LD A,.. 

165... 

RST 10 

165. 

DJNZ.. 

165. 

RET 


Que numero (decimal) esta no endere^o 16515? Justifique-o, 


39 Esta mesrna rotina pode produzir as 8 linhas superiores da tela cheias com um 
caractere a nossa escoiha, por exemplo £9 . 

Ha que usar-se um truque, pois 8 x 32 = 256, e voce NAO pode fazer LD B,256. 

Releia a teoria de DJNZ, e descubra o valor surpreendente com que se deve carregar 
B... 

0 REM.caracteres quaisquer 


16514 

LD B,.. ( 

165. . 

LD A,.. 

165. 

RST 10 

165. 

DJNZ,.. 

165. 

RET 


40 Bern, como vimos no exerci'cio anterior, o maior numero de linhas que pode ser 
preenchido com um caractere a nossa escoiha usando uma instru$ao RST 10 e 8. 
Como fazer entao para produzir 9 linhas preenchidas? 
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A rotina abaixo resolve o problems, usando doas instrugoes RST 10. Calcule 
cuidadosamente o numer o co m que deve ser carregado o contador B para que tenhamos 9 
linhas preenchidas com BB 4 . Cuidado com o salto reiativo. 

0 REM .... caracteres quaisquer 


16514 

LDB,... 

165. 

LD A ( ... 

165. 

RST 10 

165. 

RST 10 

165. 

DJNZ... 

165. 

RET 


Expllque detalhadamente o numero com que voce carregou o contador B. 


41 Raciocine em fungao do Exercicio 39, e responds: qual o maior numero de linhas 
que pode ser preenchido usando apenas duas instrugoes RST 10? 

Complete a rotina abaixo para que produza este efeito (o maior numero possivel de linhas 
usando duas instrugoes RST 10) com o caractere Q[ . 

0 REM.caracteres quaisquer 


16514 

LDB,.. 

165. 

LD A,.. 

165. 

RST 10 

165. 

RST 10 

165. 

DJNZ... 

165. 

RET 


Mostre o calculo que evidencia o numero de linhas que serao preenchidas, 


42 Finalmente, vamos preparar urn programs que enche a tela: sao necessariasqwafro 
instrugoes RST 10. Nao e possfvel com tres, pois 704 — o numero de caracteres da 
tela toda - nao e multiplo de tres. 

A rotina que voce vai escrever tern importancia teorica: e a mais curta para a produgao 
deste efeito! 

Complete*a para que encha a tela com o caractere 8. Aprecie a velocidade e a economia de 
memorial 

0 REM.caracteres quaisquer 


16514 

LDB,.. 

165. 

LD A,.. 

165. 

RST 10 

165. 

RST 10 

165. 

RST 10 

165. 

RST 10 

165. 

DJNZ... 

165. 

RET 


Mostre o calculo do numero com que voce carregou o contador, 
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43 Nem so de efeitos de tela e a nossa vida... Vamos agora ver um programa 
"matematico". 


O livro "Programagao em Assembler e Linguagem de Maquina", de David C. Alexander, 
editado em 1984 pela CAMPUS, e voltado para a linha TRS-80 (CP-300, CP-500, 
DGT-100 etc.). Todos estes micros "grandes" usam o mesmo microprocessador Z-80 
usado pelos nossos "pequenos" SINCLAIR. Logo, os programas podem ser adaptados, 
desde que conhegamos os enderegos da ROM... 

No Cafaftulo 15, pagina 104, encontramoso seguinte exemplo, atraves do qual o autor 
explica a instrugao DJNZ: 


LOOP 


LD A,00h 
LD H,05h 
LD B,03h 
ADD A,H 
DJNZ LOOP 

JP NEXT 


; coloca zero em A 
; armazena o valor 5 no registrador H 
; carrega o numero de voltas do loop 
; A agora contem mais 5 

; se B nao for zero, desvie para a soma indicada pelo 
rotuio LOOP 
; va para a proxima rotina 


Vamos transformar este exemplo em algo que rode em nosso micro. Eu disse vamos? 
Desculpe: VOCE VAI! 


0 REM .... 

. caracteres quaisquer 



16514 

LD A,0 


16516 

LD H,5 


16518 

LD B,3 

LOOP 

16520 . 

ADD A,H 


16521 

DJNZ..... 


16523 

LD C,A 


16524 

PRINT USR 16514 

RET 


Responda ANTES de rodar o programa: 

a) Qual a finalidade de LD C,A? 

b) Por que nao e necessario fazer-se LD B,0 para preparar a safda? 

c) Qual a safda do programa, ou seja, que numero vai impresso atraves de 
PRINT USR 16514? 


44 O ultimo exercfcio do capftulo e uma homenagem a LEWIS CARROLL. Sim, este 
mesmo, o autor de Alice no Pais das Maravilhasl Se voce nao sabia, seu nome nao 
era nem LEWIS nem CARROLL: era Charles Lutwidge Dodgson, e era professor de 
matematica em Oxford e autor de varias obras cientfficas. Mas notabilizou-se por 
suas historias infantis, que estao, para o observador atento, repletas de matematica 
e de logica matematica,. 

De um de seus livros, Atraves do Espelho (Through the Looking-Glass , de 1871), pingamos 
esta curiosa passagem: 

— Quanto 6 um mais um mais um mais um mais um mais um mais um mats um mais 
um mais um? 

— Eu nao set — disse Alice. — Perdi a conta. 

— Ela nao sabe somar — disse a Rainha Vermelha. 
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Bern, vamos ajudar Alice! Prepare um programa que faga a soma proposta 
(14-1+ 1...) edea resposta atraves de PRINT USR 16514. 


RESPOSTAS DOS EXERCICiOS 


25 


26 


0 resultado impress© na tela e 130, pois 
0 x 256 + 130 = 130 

I,-1 

1 -► conteudo decimal do registrador B 

—►conteudo decimal do registrador C 


O conteudo do registrador B foi alterado pela primeira instrugao do programa, mas 
o de C nao! Assim, ainda contem 130. 


16514 0E 00 LDC,0 
16516 C9 RET 


27 


O resultado impresso na tela e 16384, pois 


64 x 256 + 0 = 16384. 

I _ I 

I-►conteudo decimal do registrador B 

—►conteudo decimal do registrador C 

O conteudo do registrador C foi alterado pela primeira instrugao do programa, mas 
o de B nao! Assim, ainda contem 64. 

0 REM 4 caracteres quaisquer 

16514 01 22 00 LD BC,34 

16517 C9 RET 


0 resultado impresso na tela e 34, pois 
0 x 256 + 34 = 34 


-conteudo decimal do registrador B 
-conteudo decimal do registrador C 


16514 

06 

00 

LD B,0 

16516 

0E 

3A 

LD C,58 

16518 

18 

02 

JR 2 

16520 

0E 

BA 

LD C,186 

16522 

C9 


RET 


A primeira instrugao "zera" o conteudo de B. 

A segunda carrega C com 58, 

Aterceira salta os proximos 2 enderegos! Logo, a quarta instrugao (LD C,186) 
NAO se realiza, e o programa retorna (RET) ao BASIC, com B contendo 0 e C 
contendo 58 (e nao 186). 

Assim sendo, PRINT USR 16514 produz 58, pois 
0 x 256 +■ 58 = 58, 
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29 


30 


33 


35 


16514 

16516 

16518 

16519 


3E 

06 

4F 

C9 


2A 

00 


LD A,42 
LD 8,0 
LD C,A 
RET 


Como voce pode ver, B contem 0, e C contem 42 (assim como A). Logo, PR INT 
USR 16514 produz 42, pois 
0 X 256 + 42 = 42 


16514 

16516 

16518 

16519 

16520 


26 

IE 

44 

4B 

C9 


10 


LD H,0 
LD E,16 
LD B,H 
LD C,E 
RET 

Como voce pode ver, B contem 0 (assim como H) e C contem 16 (assim como E). 
Logo, PRINT USR 16514 produz 16, pois 

0 x 256 + 16— 16 


31 LET A = A + C 

32 Dobro do conteudo anterior de A. 
0 REM 9 caracteres quaisquer 


16514 

3E 

22 

LD A,34 

16516 

0E 

50 

LD C,80 

16518 

81 


ADD A,C 

16519 

4F 


LD C,A 

16520 

06 

00 

LD B,0 

16522 

C9 


RET 


Apos PRINT USR 16514, voce obtera na tela 114, pois 
0 x 256 4-114 = 114 

34 0 REM 9 caracteres quaisquer 


16514 

3E 

90 

LD A, 144 

16516 

06 

A0 

LD B,160 

16518 

80 


ADD A,B 

16519 

4F 


LD C,A 

16520 

06 

00 

LD B,0 

16522 

C9 


RET 


Apos a instrugao do enderego 16518, o acumuiador contem 48, pois 
48=144+ 160-256. 

Assim sendo, PRINT USR 16514 produz na tela 48, pois 
0 x 256 + 48 = 48. 

Bern, B conteria 160 e C conteria 48, como explicado acima. Logo, a safda apos 
PRINT USR 16514 seria 41008, pois 160 X 256 + 48-41008. 
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36 0 REM 10 caracteres quaisquer 


16514 

16 

66 

LD D,102 

16516 

IE 

34 

LD E,52 

16518 

7A 


LD A,D 

16519 

83 


ADD A,E 

16520 

4F 


LD C,A 

16521 

06 

00 

LD B,0 

16523 

C9 


RET 


Apos PRINT USR 16514, a saida e 154, poi$ 

0 x 256 + 154 = 154. 

Lembre-se de que USR e uma funpao BASIC. Seu argumento e o enderepo inicial, 
que e carregado no par de registradores BC. 0 resultado (safda) e o valor contido 
em BC apos a execupao da rotina. Assim, ao iniciar a nossa rotina, BC e carregado 
com 16514, logo B e C contem respectivamente 64 e 130, pois 

64x256+ 130 = 16514. 

Ao rodar o programa, a instrupao DJNZ zera o contador B, mas C nao e alterado 
pela rotina! Logo, continua contendo 130! 

Assim, o valor do par BC ao final do programa e 
0x256+ 130 = 130 

Como este valor nao nos interessa para nada, digitaremos RAND USR 16514 para 
que ele nao seja impresso. 

0 REM 8 caracteres quaisquer 


16514 

06 

A0 

LD B,160 

16516 

3E 

80 

LD A, 128 

16518 

D7 


RST 10 -—| 

16519 

10 

FD 

DJNZ-3- 1 

16521 

C9 


RET 

m 16515 esta 160, que e igual 

a 5 x 32 (5 linhas 

REM 8 caracteres quaisquer 


16514 

06 

00 

LD B,0 

16516 

3E 

95 

LD A, 149 

16518 

D7 


RST 10 -—| 

16519 

10 

FD 

DJNZ —3 —' 

16521 

C9 


RET 


Explicapoes: se B esta carregado com 0 e e decrementado, "ficaria" com —1. Mas, 
pela tabela de complemento de dois (Apendice 4), — 1 = FF = 255. E assim 
continuara sendo decrementado de 255 ate 0 novamente, totalizando 256. 

Resumindo: o maior numero de vezes que uma instrucao, ou conjunto de instrucoes, 
pode ser repetida atraves de DJNZ e 256. Um truque interessante... 

Assim, e facil ver agora que o maior numero de linhas que podemos preencher com 
apenas uma instrupao RST 10 e 8, pois 

256 ^ 32 = 8 (256 impressoes de caractere ^ 32 caracteres por linha = 8 linhas). 
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40 0 REM 9 caracteres quaisquer 


16514 

06 

90 

LD B,144 

16516 

3E 

9B 

LD A, 155 

16518 

D7 


RST 10 —| 

16519 

D7 


RST 10 ! 

16520 

10 

FC 

DJNZ-4—' 

16522 

C9 


RET 


0 contador B deve ser carregado com 9 x 32/2 = 144, pois 9 linhas x 32 caracteres 
por linha/2 impressoes (RST 10) por volta do loop= 144. 

41 0 REM 9 caracteres quaisquer 


16514 

06 

00 

LD B,0 

16516 

3E 

8E 

LD A, 142 

16518 

D7 


RST 10 —| 


16519 

D7 


RST 10 


16520 

10 

FC 

DJNZ-4— 1 


16522 

C9 


RET 

Isto produz 16 linhas preenchidas pois 256 x 2/32 = 16. Explicando: 256 repetigoes 

de instrupoes (LD B,0 seguido de DJNZ) x 2 impressoes (RST 10) por volta do 

loop 32 caracteres por linha = 

16. 

0 REM 11 caracteres quaisquer 


16514 

06 

B0 

LD B,176 

16516 

3E 

08 

LD A,8 

16518 

D7 


RST 10—i 


16519 

D7 


RST 10 


16520 

D7 


RST 10 


16521 

D7 


RST 10 


16522 

10 

FA 

DJNZ-6 — 


16524 

C9 


RET 

C&lculo do numero com que carregamos o contador: 

22 x32 

t4 = 176 



pois sao 22 linhas x 32 caracteres por linha * 4 impressoes (RST 10) por volta do 

loop. 




0 REM 11 caracteres quaisquer 


16514 

3E 

00 

LD A,0 

16516 

26 

05 

LD H,5 

16518 

06 

03 

LD B,3 

16520 

84 


ADD A,H ^—| 

16521 

10 

FD 

DJNZ -3 — 1 

16523 

4F 


LD C, A 

16524 

C9 


RET 


a) LD C,A prepara a satda, colocando emCo valor presente no acumulador A. 

b) Nao e nece$$£rio fazer LD B,0, pois a instrugao DJNZ ja fez isto. 

c) 15. 
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44 0 REM 11 caracteres quaisquer 

16514 3E 00 

16516 26 01 

16518 06 0A 

LOOP 16520 84 

16521 10 FD 

16523 4F 

16524 C9 

PRINT USR 16514 


LD A,0 ; imcializa o acumulador 

LD H,1 ; coloca em H a parcela 

LD B,10 ; faz de B o contador do loop 


ADD A,H ; soma 

DJNZ —3 ; volta para somar de novo 


■n 


LD C,A ; coloca A em C para fazer a safda 


RET ; volta ao BASIC 
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6.1 


INTRODUQAO 

A instrupao DJNZ usa o registrador B como contador. Entretanto, 3s vezes isto £ 
impossfvel, pois B pode estar sendo usado para outra coisa. Certas vezes pode ser 
preferfvel usar outro registrador de 8 bits como contador, em vez de B. 

Para isto, e novamente necessario que aumentemos o-conjunto de instrupoes ASSEMBLY 
conhecidas por nos. E o que faremos nos proximos itens. 


6.2 ___ 

INSTRUCOES INC r E DEC r 

Em urn loop do tipo 

FOR A = 1 TO 10 

NEXT A 

a variavel de controte vai sendo incrementada, desde 1 ate 10, passando por 2, 3, 4,..., 9. 
Se fizermos 

FOR A =10 TO 1 STEP-1 
NEXT A 

a variavel de controte vai sendo decrementada, desde 10 ate 1, passando por 9, 8, 7,..., 2. 

A instrupao DJNZ decrementa automaticamente o contador B. Se desejamos fazer isto 
com outro registrador de 8 bits, precisamos faze-lo nos mesmos. 

A instrupao tern a forma INC r ou DEC r, e tern a seguinte correspondence BASIC: 


INC A. LET A = A + 1 

DEC A. LET A = A — 1 


Se L estava carregado com 04, apos INC L tern 05. Se L continha FF, apos INC L contem 

00 . 

Se L estava carregado com 04, apos DEC L tern 03. Se L continha 00, apos DEC L 
contem FF. 


Ccptulo 


FAZENDO LOOPS - 2? PARTE 







Observe os codigos hexa das instrugoes: 


INCA 

3C 

DEC A 

3D 

INC B 

04 

DEC B 

05 

INC C 

0C 

DEC C 

0D 

INC D 

14 

DEC D 

15 

INC E 

1C 

DEC E 

ID 

INCH 

24 

DEC H 

25 

INC L 

2C 

DEC L 

2D 


Comprove as nossas afirmagoes da p$gina anterior rodando os seguintes programas. 


PROG RAMA 13 


(5 bytes) 


16514 

01 

FF 

00 

LD BC,255 

16517 

0C 



INC C 

16518 

C9 



RET 


PRINT USR 16514 


Observe um truque. Poderfamos ter feito LD 8,0 e LD C,255, o que seria mais 
"compreensivel", mas gastaria um byte a mais. 


PROGRAMA 14 


(5 bytes) 


16514 

01 

00 

00 

LD BC,0 

16517 

0D 



DEC C 

16519 

C9 



RET 

PRINT USR 16514 





Naturaimente os resultados sao 0 e 255, respectivamente. 

Bern, chegamos a um instante importante. Esta na hora de voce ler cuidadosamente o 
Apendice 1, detendo-se especialmente nas explicates sobre o registrador de estado F. 

NAO PROSSIGA NA LEITURA DESTE CAPITULO SEM ANTES LER O APENDICE 1 


Pols bem, agora que voce conhece o registrador F, saiba que INC r e DEC r afetam a 
ZERO FLAG. (Para um estudo detalhado de quais instrugoes afetam mais flags, vide 
Apendice 11.) 

Logo, podemos detectar quando o registrador-contador atinge 0 e um loop. Isto nos 
permite fazer SALTOS CONDICIONADOS. Este e o nosso proximo assunto. 
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6.3 

SALTOS ABSOLUTOS CONDICIONADOS 

Com base nas flags afetadas por cada instrugao, sao possfveis os seguintes saltos 
condicionados (apos o codigo da instrugao, ha necessidade de 2 bytes para o enderego). 

• JP P,NN (JumP if Plus) — salta, se o ultimo resultado e positivo. 

• JP M,NN (JumP if Minus) — salta, se o ultimo resultado e negativo. 

• JP Z,NN (JumP if Zero) — salta, se o ultimo resultado e zero. 

• JP NZ,NN (JumP if Not Zero) — salta, se o ultimo resultado nao e zero. 

• JP PO,NN (JumP if Parity is Odd) — salta, se apos a ultima instrugao a paridade e 

fmpar (odd) ou s enao houve transbordamento (overflow). 

• JP PE,NN (JumP if Parity is Even) — salta, se apos a ultima instrugao a paridade 

6 par (even) ou se houve transbordamento (overflow). 

• JP C,NN (JumP if Carry) — salta, se no ultimo resultado houve transpose (carry). 

• JP NC,NN (JumP if No Carry) — salta, se no ultimo resultado nao houve 

transporte (carry). 

A tabela abaixo fornece os codigos hexa destas instrugoes. 


JP 

P 

F2 

JP 

M 

FA 

JP 

Z 

CA 

JP 

NZ 

C2 

JP 

PO 

E2 

JP 

PE 

EA 

JP 

C 

DA 

JP 

NC 

D2 


6.4 

SALTOS RELATiVOS CONDICIONADOS 

Embora nao tao variadamente como nos saltos absolutos condicionados, saltos relativos 
condicionados tambem sao possfveis. E sao utilfssimos... 

Apos o codigo da instrugao, usaremos mais um byte para dar o deslocamento do salto, 
para frente ou para tras. 

A tabela abaixo fornecera os codigos hexa das instrugoes permitidas. 


JR 

Z 

28 

JR 

NZ 

20 

JR 

C 

38 

JR 

NC 

30 
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6,5 


A 1NSTRUCA0 COMPARE (CP) 

A jnstrupao COMPARE (CP) calcula o resultado de "acumulador menos registrador ou 
dado", e altera as flags convenientemente. O resultado da comparapao (subtracao) nao e 
guardado em lugar nenhum. Vejamos os codlgos hexa das instrupoes que nos Interessam. 


CP 

A 

BF 

CP 

B 

B8 

CP 

C 

B9 

CP 

D 

BA 

CP 

E 

BB 

CP 

H 

BC 

CP 

L 

BD 

CP 

N 

FE (+1 byte) 


6.6 


USO DE CONTADORES 

Compare os esquemas abaixo. 

LD B,. LD L,.. 

rotina^—> rotina 

DJNZ —I DEC L 

JR NZ, 

Em termos de funcionamento, estas duas possibilidades sao iguais. DJlSlZ e apenas mais 
economico. 

Outra possibilidade: 

LD C,0 
rotina -<— 

INC C 
CP.... 

JR NZ...,- 

Tambem e equivalente. Mais trabalhosa, mas... necessaria as vezes. 

Vamos fazer alguns problemas como exemplo. Como primeira id^ia, vamos fazer urn loop 
dentro de outro. 

Estabelegamos uma rotina que encha uma linha com ADAD... 


LD B,16 

; havera 16 “pares" AD 

CARGA LD A,"A" 

; coloca no acumulador o caractere A 

RST 10 

; imprime A na tela 

LD A/'D" 

; coloca no acumulador o caractere D 

RST 10 

; imprime D na tela 

DJNZ CARGA 
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Agora, que temos uma linha, precisamos de um contador para 22 linhas. Seja C e$te 


contador. 0 esquema sera: 


LD C,22 

LINHA 

LD B,16 

CARGA 

LD A,"A' 


DJNZ CARGA 
DEC C 

JR NZ LINHA 
RET 


E assim fizemos o 


PROGRAMA 15 


(16 bytes) 



16514 

0E 

16 

LD C,22 

LINHA 

16516 

06 

10 

LD B,16 --1 

CARGA 

16518 

3E 

26 

LD A,38 -—i 



16520 

D7 


RST 10 



16521 

3E 

29 

LD A,41 



16523 

D7 


RST 10 



16524 

10 

F8 

DJNZ-8— 1 



16526 

0D 


DEC C 


16527 

20 

F3 

JR NZ,-13- 

_ 


16529 

C9 


RET 


Rode o programa, modifique os caracteres se quiser, mas estude detalhadamente o que 
fizemos. Os exercfcios serao verdadeiros desafios... 


6.7 


EXERCfCIOS 

45 Fapa um programa que encha a tela da seguinte maneira: 

1 linha "espapo invertido" 

1 linha "caractere 8" 

1 linha "espago invertido" 

1 linha "caractere 8" 


ate o fim da tela. 
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SUGESTAO DE ESTRUTURA DO PROGRAMA 

1) Contador C para 16 conjuntos de pares de linhas 

2) Loop para a I inha preta com contador B e DJNZ 

3) Loop para a finha cinza com contador B e DJNZ 

4) DEC C 

5) JR NZ voltando para o item 2 

6) RET (nao esquepa!... ou CRASH!) 

Se voce acertou, o programa leva 20 bytes. Insista. E muito importante que voce aprenda 
a trabalhar com loops. Nao "cole" a resposta. Voce so aprende o que faz. 

46 No Exercfcio 15 do Capftuio 3, surgiu a ideia de escrever o alfabeto na tela, ideia 
esta que foi abandonada, pois levaria 79 bytes (!) com a tecnlca de que 
dispunhamos ate entao. 

No Exercfcio 18 do Capftuio 3, efetivamente colocamos o alfabeto na tela, levando 36 
bytes. 

Com o que sabemos agora, levaremos apenas 9 bytes ! 

Nossas sugestoes para o seu programa: 

— o codigo do caractere A e 38 (26h); carregue o acumulador com ele. 

— com RST 10 coloque-o na tela. 

— o codigo do caractere Z § 63 (3F) 

— assim, incremente o acumulador A, compare com 64 (40h) (POR QU£?), e de 
um JR NZ para a instrupao RST 10, que colccara B, C,... etc. na tela, ate Z, 

— nao esquepa do RET. 

Escreva seu programa, confira-o (9 bytes) e rode-o. A vetocidade do loop e 
impressionante. Se desejar, compare-o com o mesmo programa escrito em BASIC: 

10 FOR A-38 TO 63 
20 PRINT CHR$ A; 

30 NEXT A 

Alem da velocidade, a economia de memoria tambem e impressionante— este 
programa BASIC "gasta" 41 bytes (!). 

47 Aproveitando a ideia do Exercfcio 46, voce deve escrever mais alguns programas. 
Primeiramente escreva o alfabeto centrado na tela. Relembre PRINT AT em 
linguagem de maquina, no Capftuio 4. 

48 Escreva o alfabeto de tras para frente, ou seja, comepando de Z e terminando em A. 

49 Escreva o alfabeto, de A ate Z, mas em video inverso. 

50 Escreva o alfabeto, de tras para frente, centrado na tela, em video inverso. 

51 Os micros de linha Sinclair apresentam um total de 128 caracteres imprimfveis, que 
nao seguem a convenpao ASCII. Seus codigos vao de 0 a 63, para os em vfdeo 
direto, e de 128 a 191, para os em vfdeo inverso. Como voce pode perceber, a 
diferenpa numerica entre os codigos de um caractere e seu inverso e constante e igual 
a 128 (80h). Para melhor entendimento, consulte o Apendice 2. 
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Escreva um programa que escreva na tela os 128 caracteres imprimfveis (voce vai ocupar 
exatamente 4 linhas). Sugestao (incompleta): 

LD A,0 
RST 10 
INCA 
CP 64 
JR NZ 

ADD A,.(voce precisa passar de 64 para 128)* 

RST 10 
etc. 

Bom trabalho... 


52 Escreva um programa que encha a tela com o segulnte esquema: 

1? linha -^32 letras A 
2? linha -> 32 letras B 
3? linha 32 letras C 


etc... 

Este e sem sugestao. Divirta-sei 


53 0 programa que o convidamos a escrever agora nao term uma safda de vfdeo 

bonita — e no maximo curiosa. Mas... tern uma novidade para voce — a icteia de 
preservar o valor do contador noutro registrador fora do loop, para este valor poder 
ser incrementado ou decrementado depois. Usaremos esta mesma ideia mais tarde 
num programa que tern uma linda safda de vfdeo. 

A ideia e a seguinte (consulte o ApSndice 2 para entendd-la ciaramente): deverSo ser 
impressos na tela um ponto, dois nCimeros 0, tres numeros 1 etc. at£ trinta esete letras Z. 


(1 +37) x37 

O numero de caracteres a serem impressos e-= 19 x 37 = 703, o que cabe 

2 

na tela (por um!). 


Eis a estrutura do programa que voce devera escrever, com alguns comentarios. Deixamos 
todos os calculos para voce. 


INfCIO -* LD A,codigo do caractere "ponto'' 

LD C,1 

LOOP -> LD B,C 

IMPRIME-* RST 10 

DJNZ IMPRIME 
INC C * 

INCA 

CP. 

JR Z FIM 
JR LOOP 

FIM -► RET 


; inicializa o acumuiador. 

; ponto sera impresso uma vez. 
; coloca o contador em B. 

; imprime. 

; n9 de vezes da impressao 
; incrementa o contador. 

; incrementa o acumuiador. 

; verifica se "passou" de Z. 

; se "passou", volta ao BASIC. 

; volta ao loop. 

; volta ao BASIC. 


Em tempo:a formula que usamos para achar o numero de caracteres impressos nada mais 
e que a formula da soma dos termos de uma P. A.... 
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RESPOSTAS DOS EXERCICIOS 

45 0 REM 20 caracteres quaisquer 


16514 

0E 

0B 

LD C,11 

16516 

06 

20 

LD B,32 -- 

16518 

3E 

80 

LD A, 128 

16520 

D7 


RST 10 —| 
DJNZ -3-J 

16521 

10 

FD 

16523 

06 

20 

LD B,32 

16525 

3E 

08 

LD A,8 

16527 

D7 


RST 10 —| 
DJNZ-3- 1 

16528 

10 

FD 

16530 

0D 


DEC C 

16531 

20 

EF 

JR NZ,—17— 

16533 

C9 


RET 


46 0 REM 9 caracteres quaisquer 


16514 

3E 

26 

LD A, 38 

16516 

D7 


RST 10 -— 

16517 

3C 


INC A 

16518 

FE 

40 

CP 64 

16520 

20 

FA 

JR NZ,—6- 

16522 

C9 


RET 


Por que CP 64? Como sabemos, a instrugao CP afeta a ZERO FLAG (ver Apendice 
11), Assim, apos uma instrugao CP, podemos fazer JR NZ, JR Z, JP NZ ou JP Z. 

Quando o acumulador atingir o valor 64, a instrugao CP provocara o resultado 0 
(lembre-se de que CP e uma subtragao). A instrugao JR NZ,-6 nao sera 
implementada, e o programa retornara ao BASIC. 

47 Como o alfabeto tem 26 letras, vamos escreve-lo a partir de 11,3; ou seja, o 
comando BASIC equivalente seria 

PRINT AT 11,3;"ABC.Z" 


Assim sendo, B = 11 eC = 3 para chamarmos a rotina 2293, que posiciona o cursor 
de impressao. Voce reviu o Capitulo 4? 

0 REM 15 caracteres quaisquer 


16514 

01 

03 

0B 

LD BC,xxxx (B 

= 11 e C = 3) 

16517 

CD 

F5 

08 

CALL 2293 

16520 

3E 

26 


LD A,38 

16522 

D7 



RST 10 -- 


16523 

3C 



INCA 


16524 

FE 

40 


CP 64 


16526 

20 

FA 


JR NZ,—6- 1 


16528 

C9 



RET 
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48 0 REM 9 caracteres quaisquer 


49 


16514 

3E 

3F 

LD A,63 


16516 

D7 


RST10 -- 


16517 

3D 


DEC A 


16518 

FE 

25 

CP 37 


16520 

20 

FA 

JR NZ,—6- 


16522 

C9 


RET 


Certifique-se de que entendeu qual o motivo de LD A,63 e CP 37. 

0 REM 9 caracteres quaisquer 



16514 

3E 

A6 

LD A, 166 


16516 

D7 


RST 10 -- 


16517 

3C 


INCA 


16518 

FE 

C0 

CP 192 


16520 

20 

FA 

JR NZ,—6- 1 


16522 

C9 


RET 


Certifique-se de que entendeu o 

motivo de LD A, 166 e CP 192. Consul 

Apendice 2 em caso de duvida! 



0 REM 15 caracteres quaisquer 



16514 

01 

03 

0B LD BC.xxxx (B = 11 e C = 3) 

16517 

CD 

F5 

08 CALL 2293 

16520 

3E 

BF 

LD A, 191 

16522 

D7 


RST 10 -- 


16523 

3D 


DEC A 


16524 

FE 

A5 

CP 165 


16526 

20 

FA 

JR NZ-6- 


16528 

C9 


RET 



51 0 REM 16 caracteres quaisquer 


16514 

3E 

00 

LD A,0 

16516 

D7 


RST 10 -- 

16517 

3C 


INCA 

16518 

FE 

40 

CP 64 

16520 

20 

FA 

JR NZ,—6- 

16522 

87 


ADD A,A 

16523 

D7 


RST 10 -— 

16524 

3C 


INCA 

16525 

FE 

C0 

CP 192 

16527 

20 

FA 

JR NZ,—6- 

16529 

C9 


RET 


52 


Tambem seria possfvei, em vez de ADD A,A (87h), ADD A,64 (C6 40). Mas como 
fizemos e mais curto (1 byte apenas) e mais elegante. 

Como nao fizemos nenhuma sugestao, este programs vai comentado, 

0 REM 14 caracteres quaisquer 
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16514 

0E 

16 

LD C,22 

; contador para 22 linhas 

16516 

3E 

26 

LD A,38 

; inicializa A com o codigo de "A" 

16518 

06 

20 

LD B,32 

; contador de caracteres na linha-*— 

16520 

D7 


RST 10 

; imprime a letra —j 

16521 

10 

FD 

DJNZ-3 

; completa a linha- * 

16523 

3C 


INCA 

; proxima letra 

16524 

0D 


DEC C 

; decrements contador de linhas 

16525 

20 

F7 

JR NZ-9 

; proxima linha — 

16527 

C9 


RET 

; volta ao BASIC 


0 REM 17 caracteres quaisquer 


INICIO-* 

16514 

3E 

IB 

LD A,27 


16516 

0E 

01 

LD C,1 

LOOP —> 

16518 

41 


LD B,C 

IMPRIME -> 

16519 

D7 


RST 10 


16520 

10 

FD 

DJNZ —3 


16522 

0C 


INC C 


16523 

3C 


INCA 


16524 

FE 

40 

CP 64 


16526 

28 

02 

JR Z,2 


16528 

18 

F4 

JR,—12 

FIM -> 

16530 

C9 


RET 



7.1 


INTRODUCAO 

Neste capi'tulo vamos estudar a tela de TV, a saida de video fornecida pelos micros de 
logica SINCLAIR. 

Trabalhar diretamente com a memoria de vfdeo nos dara uma incnvel versatilidade, 
naturalmente com o onusde aprendermos novas instrugoes ASSEMBLY e melhorarmos 
nosso entendimento sobre as variaveis do sistema. 

Normalmente consideramos a tela como tendo 24 linhas de 32 colunas cada uma, sendo 
as duas linhas inferiores reservadas para edigao — sao as linhas usadas pelo cursor. 

O numero de linhas usadas pelo cursor e controlado pela variavel do sistema DF.SZ, cujo 
enderego e 16418 (4022h). Ela normalmente contem o valor 2. Ou seja, se voce ligar o 
computador e digitar 

PRINT PEEK 16418 
obtera na tela o valor 2. 

Como podemos fazer PEEK em linguagem de maquina? Observe o esquema abaixo, 
entendendo por NN o enderego onde se quer fazer PEEK. 


INSTRUQAO 

c6digo hexa 

CORRESPONDENCIA BASIC 

LD A,(NN) 

3A 

LET A“PEEK NN 

LD BC,(NN) 

ED 4B 

LET C=PEEK NN 

LET B=PEEK {NN + 1) 

LD DE,(NN) 

ED5B 

LET E=PEEK NN 

LET D=PEEK (NN+1) 

LD HL,(NN) 

2A 

LET L=PEEK NN 

LET H=PEEK (NN + 1) 


Preste muita atencao aos parenteses! LD A, 16418 exprime algo impossivel: carregar A 
com o valor 16418 (> 255); enquanto que LD A,(16418) e perfeitamente possfvel: 
carrega A com o conteudo (PEEK) do endereco 16418. 

Vamos fazer PRINT PEEK 16418 em linguagem de maquina. Varias solugoes sao 
possiveis. Vejamos algumas. 

a) LD A,(16418) ATENQAO PARA A INVERSAO DO ENDEREQO! 

LD C,A 
LD B,0 


Capltulo 


A TELA DE TV 




PROGRAMA 16-a 


(7 bytes) 


0 REM 7 caracteres quaisquer 


16514 

3A 

22 

40 

LD A,(16418) 

16517 

4F 



LD C,A 

16518 

06 

00 


LD B,0 

16519 

C9 



RET 


PRINT USR 16514 produz o valor 2. 


b) LD BC,(16418) 

LD B,0 

Ao fazermos LD BC,(16418), fizemos LET C=PEEK 16418 e LET B=PEEK 16419. Este 
valor de B nao nos interessa, logo deve ser "zerado". 


PROGRAMA 16- b 


(7 bytes) 


16514 

ED 

4B 

22 

40 

LD BC,(16418) 

16518 

06 

00 



LD B,0 

16519 

C9 




RET 


c) LDHL,(16418) 
LD C, L 
LD B,0 


PROGRAMA 16- c 


(7 bytes) 


16514 

2A 22 40 

LD HL,(16418) 

16517 

4D 

LD C,L 

16518 

06 00 

LD B,0 

16519 

C9 

RET 


Naturalmente os tres programas sao equivalentes. Fizemos questao de apresentar os tres 
para que voce va ganhando flexibilidade. Voltemos ao nosso assunto. 


7.2 _ __ 

ALTERANDO AS LINHAS DE EDICAO 

Podemos alterar o numero de linhas de edicao, inclusive suprimindo-as, fazendo um 
POKE em 16418. Atraves de POKE 16418,0 anulamos as duas linhas de edicao, passando 
a ter acesso as 24 linhas da tela. 

No entanto, voce NAO PODE fazer um INPUT apos POKE 16418,0, senao... CRASH! 
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Experimente este programa BASIC. 

10 POKE 16418,0 
20 FOR L=0 TO 23 
30 PRINT AT L,L;"*" 

40 NEXT L 

Ele imprime 24 * em diagonal na tela, parando com codigo 0/40. No entanto, se voce 
acrescentar 

50 INPUT 1$ 

60 CLS 

e rodar o programa, normalmente perderd acesso ao teclado, permanecendo a tela 
aparentemente normal por alguns segundos antes do CRASH. 

Como podemos fazer POKE em linguagem de maquina? Observe o esquema abaixo, 
entendendo por NN o enderego onde se quer fazer POKE. 


INSTRUQAO 

CODIGO HEXA 

CORRESPONDENCE BASIC 

LD (NN),A 

32 

POKE NN,A 

LD (NN),BC 

ED 43 

POKE NN,C 

POKE NN + 1,B 

LD (NN),DE 

ED 53 

POKE NN,E 

POKE NN + 1,D 

LD (NN),HL 

22 

POKE NN,L 

POKE NN+1,H 


Assim, podemos substituir a linha 10 do programa BASIC do item anterior por urn 
programa ASSEMBLY que faga POKE 16418,0: 

LD A,0 
LD (16418),A 

PROGRAMA 17 (6 bytes) 

0 REM 6 caracteres quaisquer 

16514 3E 00 LDA,0 

16516 32 22 40 LD (16418),A 

16519 C9 R ET 

Apos dar entrada a este programa, que agora "mora" na linha 0, digite o nosso velho 
programa BASIC, com uma nova linha 10. 

10 RAND USR 16514 
20 FOR L=0TO 23 
30 PRINT AT L,L; 

40 NEXT L 

e veja que funciona\ 
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7.3 


AMEMORIA da tela 

Podemos encarar a tela como sendo um retangulo de 32 (colunas) X 24 (linhas) posigoes. 
No entanto, o computador arquiva a tela de maneira completamente diferente. Vamos 
comegar a entender este importantissimo topico. 

O arquivo de imagem e sequencial, iniciando-se por um caractere 118 (NEW LINE), 
seguido de 32 bytes para a I inha, um caractere 118 para Indicar o fim da 1? I In ha, 

32 bytes para a 2? linha, um caractere 118 para indicar o fim da 2? linha, 32 bytes para a 
3? linha, e assim sucessivamente ate a 24? linha (as duas linhas de edigao pertencem ao 
arquivo de imagem). 

O enderego iniciai deste arquivo e variavel, sendo dado atraves da variavel do sistema 
D.FILE, uma variavel de 2 bytes, cujo enderego iniciai e 16396 (4000- 

Logo, o enderego iniciai do arquivo de imagem pode ser obtido em BASIC atraves de 
PRINT PEEK 16396+256*PEEK 16397 
ou, em linguagem de maquina, atraves do 


PROGRAMA 18 


(6 bytes) 


16514 

2A 

0C 

40 

LD HL,(16396) 

16517 

44 



LD B,H ( n g Q ex i s t e LD BC,HL 

16518 

4D 



LDC,L > 

16519 

C9 



RET 


PRINT USR 16514 fornece o enderego do primeiro byte do arquivo de imagem. Sabemos 
«que este enderego contem 118, um NEW LINE. Assim, se voce digitar 

PRINT PEEK (PEEK 16396+256*PEEK 16397) 
a resposta sempre sera 118. 

0 esquema da pSgina seguinte ajud3-lo-2 a compreender a tela. 

0 numero na quadri'cula e o que deve ser somado ao enderego apontado por D. FI LE para 
se obter o enderego da posigao de tela. 

Assim, observando o esquema, tente entender as proximas explicagoes. 

a) 0 conteudo dos enderegos relativos £s quadrfculas hachuradas e sempre 118, e 
nao pode seralterado, ou o micro “se perderia", sem saber “construir" a tela... 
CRASH. Veja e compreenda a safda deste programa BASIC. 

10 LET DF=PEEK 16396+256*PEEK 16397 
20 FOR L-0 TO 24 
30 PRINT PEEK (DF + 33*L>, 

40 NEXT L 

Sua saida serao 25 pumeros 118! Ou seja, o NEW LINE iniciai do arquivo e mais os 24 
NEW LINEs terminal de cada linha. 

b) Voce pode imprimir na tela, fazendo POKE em posigoes permitidas da tela. 
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Observe os exemp!os. 

19 Exemplo: 10 LET DF = PEEK 16396 +256*PEEK 16397 
20 POKE DF + 1,23 

Isto imprime um asterisco na posipao 0,0 

29 Exemplo: 10 LET DF -PEEK 16396+256*PEEK 16397 
20 LET A=23 
30 POKE DF + 1,A 
40 POKE DF+32,A 
50 POKE DF+694,A 
60 POKE DF +725, A 

Isto imprime quatro asteriscos, um em cada canto do video. 

39 Exemplo: Vamos imprimr um asterisco no meio da tela, ou seja, na posigao 

11,16, Como calcular o numero que deve ser somado a DF? £ facil... 

Chamando de L a Unha e C a coluna; PRINT AT L,C;"*" equivale a POKE DF+33* L + 

C+1,23. Assim, para PRINT AT 11,16;"*"devemos somar a DF 33*11 + 16+1-380. 

Confira: 


10 LET DF-PEEK 16396 + 256*PEEK 16397 
20 PRINT AT 11,16;"N" 

30POKE DF +380,23 

So ha um asterisco na tela, e a indicagao 0/30. Se voce prestar bastante atengao, ainda 
ver3 o N sendo impresso, e substitufdo pelo *. 

49 Exemplo: Vamos fazer um X na tela usando 21 linhas. O X deve comecar em 
0,0 e 20,0 (pontos superiores) e terminar em 20,0 e 20,20 (pontos 
inferioresL O caractere de construgao sera *. Nao passe adiante sem 
entender este programa! 

10 LET DF-PEEK 16396 + 256*PEEK 16397 
20 LET A=23 

30 FOR S-1 TO 681 STEP 34 
40 POKE DF + S,A 
50 NEXT S 

60 FOR S=21 TO 661 STEP 32 
70 POKE DF + S,A 
80 NEXTS 

Observe bem. 0 loop das linhas 30 a 50 faz a perna \ do X. Por que STEP 34? 0 loop das 
linhas 60 a 80 faz a perna / do X. Por que STEP 32? 

7.4 

EXERCiCIOS 

54 Faga um programa BASIC semelhante aos que vimos nestes exemplos que preencha 
a 1^ linha da tela com EH. 

55 Fapa um programa BASIC que preencha a ultima linha "normal" da tela (sem 
contar as linhas de edigao) com 
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56 Papa um programs BASIC que preencha a 1? coluna da tela, desde 0,0 ate 21,0 com 

a. 

57 Combinando tudo isto, fapa um programs que coloque uma moldura na tela, 
usando apenas 3 loops. Observe o esquema: 

1? loop ^ 


-29 loop —- 

___ 

3? loop^ 

Use B como caractere de construpao da moldura. E muito importante que voce fapa 
este exerdcio, porque sua estrutura sera necessaria para que voce compreenda quando o 
escrevermos em ASSEMBLY. 


7.5 _____ 

NOVAS INSTRUQOES ASSEMBLY 

Vamos incrementar o conjunto de instrupoes que conhecemos, a fim de que possamos 
passar todos estes programas BASIC - interessantes, sem duvida, mas lentos - para 
linguagem de maquina e sua conhecida velocidade. 

1? Conjunto: UM POUCO MAIS DE LOAD (FAZENDO PEEK) 


INSTRUQAO 

cOdigo hexa 

CORRESPONDENCE BASIC 

LD A,(BC) 

LD A,(DE) 

LD A,(HL) 

LD B,(HL) 

LD C,(HL) 

LD D,(HL) 

LD E,(HL) 

LD H,(HL) 

LD L,(HL) 

0A 

1A 

7E 

46 

4E 

56 

5E 

66 

6E 

LET A=PEEKBC 

LET A=PEEKDE 

LET A=PEEK HL (utilfssimo) 
LET B=PEEK HL 

LET C=PEEK HL 

LET D=PEEK HL 
LETE=PEEKHL 

LET H=PEEK HL 

LET L=PEEK HL 

29 Conjunto: UM POi 

JCO MAIS DE LOAD (FAZENDO POKE) 

_________r 

INSTRUQAO 

c6digo hexa 

CORRESPONDENCIA BASIC 

LD (BC),A 

LD (DE),A 

LD <HL),A 

LD (HL),B 

02 

12 

77 

70 

POKE BC,A 

POKE DE,A 

POKE HL,A (utilfssimo) 
POKE HL,B 
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LD (HL),C 

71 

POKE HL,C 

LD {HL),D 

72 

POKE HL,D 

LD (HL),E 

73 

POKE HL,E 

LD (HL),H 

74 

POKE HL,H 

LD (HL),L 

75 

POKE HL,L 

LD (HL),N 

36 

POKE HL,N (utilfssimo) 


3? Conjunto: UM POUCO MAfS DE ADD 


INSTRUpAO 

C6D1GO hexa 

equivalEncia basic 

ADD A,(HL) 

86 

LET A-A+PEEK HL 

ADD A,N 

C6 

LET A=A+N 

ADD HL,BC 

09 

LET HL=HL+BC 

ADD HL,DE 

19 

let hl=hl+de 

ADD HL,HL 

29 

LET HL=HL+HL 


49 Conjunto: UM POUCO MAfS DE INC E QEC 


INSTRUQAO 

CODIGO HEXA 

EQUIVALSNCIA BASIC 

INC (HL) 

34 

LET PEEK HL=PEEK H L+1 

INC BC 

03 

LET BC=BC+1 

INC DE 

13 

LET DE=DE + 1 

INC HL 

23 

LET HL=HL+1 

DEC (HL) 

35 

LET PEEK HL=PEEK HL-1 

DEC BC 

0B 

LET BC=BC —1 

DEC DE 

IB 

LET DE=DE —1 

DECHL 

2B 

LET HL=HL—1 


IMPORT ANTE: 

Estas instrugoes NAO 
afetam nenhuma FLAG, 
e nao podem $er aproveitadas 
para contadores! 


7.6 

USANDO 0 ARQUIVO DE TELA 

Vamos agora entrar em terreno muito fertil. Comegamos o estudo de programas onde e 
usado o arquivo de tela. 0 limite e a sua imaginagao. Podemos fazer o que desejarmos 
com a tela, e so crlar... 
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Nosso primeiro programs sera bem simples: colocar urn asterisco bem no meio da tela 
(PRINT AT 11,16;"*")- Reveja como isto foi feito no 39 exemplo do item 7.3. 


Nos faremos assim: 

a) LD H 1,(16396) 

b) LD DE,380 

c) ADD HL,DE 

d) LD (HL),23 

e) RET. 


faz de HL ponteiro para o arquivo de imagem; HL agora 
aponta para o NEW LINE inicial do arquivo. 

->• coloca em DE o numero de posigoes a serem saltadas. 

salta as posigoes necessarias. 

-> coloca o asterisco na tela. 


Detalhes: 19) 16396 = 400C (ver Apendice 5); cuidado com a inversao! 


29) 380 = 017C, pois 

380 125S_ 

124 1 

/ ^ 

7C 01 h 


Agora estamos prontos. 


PROGRAMA 19 


(10 bytes) 


0 REM 10 caracteres quaisquer 


16514 

2A 

0C 

40 

LD HL,(16396) 

16517 

11 

7C 

01 

LD DE,380 

16520 

19 



ADD HL,DE 

16521 

36 

17 


LD (HL),23 

16523 

C9 



RET 


Nosso segundo exemplo sera produzir a linha superior da tela preenchida com EZL 
Esquematizemos: 

a) LD HL,( 16396). 

b) LD B,32 faz de B urn contador para 32 caracteres colocados na tela. 

c) INC HL-*salta uma posigao-*- 

d) LD (HL),151 

e) DJNZ -- 

f) RET 

Cuidado para calcular o salto relativo para tr^s. 
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(11 bytes) 


PROGRAMA 20 


0 REM 11 caracteres quaisquer 


16514 

2A 

0C 

40 

LD HL,( 16396) 

16517 

06 

20 


LD B,32 

16519 

23 



INCHL -- 

16520 

36 

97 


LD (HL),151 

16522 

10 

FB 


DJNZ-5 - 

16524 

C9 



RET 


Nosso terceiro exemplo sera produzir uma diagonal da tela, desde 0,0 ate 21,21. E facil. 
Veja la, Usaremos o caractere numero 134, fica bonito. 


PROGRAMA 21 


(15 bytes) 


16514 

2A 

0C 

40 

LD HL,( 16396) 


16517 

23 



INC HL 

;saltao NEW LINE inicial 

16518 

11 

22 

00 

LD DE,34 

; n9 de posigoes a saltar 

16521 

06 

16 


LD B,22 

; contador de linhas 

16523 

36 

86 


LD (HL),134 

; coloca na tela -» 

16525 

19 



ADD HL,DE 

; salta 34 posigoes 

16526 

10 

FB 


DJNZ -5 

; volta para LOOP-' 

16528 

C9 



RET 



Nosso quarto exemplo sera urn programa para encher a tela com o caractere 8. Preste 
bastante atengao a estrutura do programa. E importante para que voce possa compreender 
outros. 





PROGRAMA 22 

(17 

bytes) 

16514 

2A 

0C 

40 

LD HL,( 16396) 


16517 

0E 

16 


LD C,22 

; contador de linhas 

16519 

23 




INC HL 


;salta NEW LINE ^ 

16520 

06 

20 


LD B,32 

; contador de colunas 

16522 

36 

08 


LD (HL),8 

; coloca na tela ——i 

16524 

23 




INCHL 

; proxima posigao 

16525 

10 

FB 


DJNZ - 

•5 

; completa linha -* 

16527 

0D 




DEC C 


; decrementa contador de linhas 

16528 

20 

F5 


JR NZ, 

-11 

; enche a tela - 

16530 

C9 




RET 




Este programa 22, levemente adaptado, produz um espetacular efeito de tela, que voce 
pode usar como preferir em seus programas BASIC. 
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(21 bytes) 


PROGRAMA 23 


16514 

3E 

3F 

16516 

2A 

0C 

16519 

0E 

16 

16521 

23 


16522 

06 

20 

16524 

77 


16525 

23 


16526 

10 

FC 

16528 

0D 


16529 

20 

F6 

16531 

3D 


16532 

20 

EE 

16534 

C9 


Que tal o efeito? 

Impressionante 


LD A,63; inicializa caractere de impressao com 

40 LD HL,(16396) 

LD C,22 
INCHL -— 

LD B,32 
LD (HL),A 
INC HL 
DJNZ -4 
DEC C 
JR NZ,—10 
DEC A 
JR NZ,—18 
RET 

a velocidade, nao? Bern, agora e com voce. 


U/A-*—| 

'L, J 


Z 


7.7 ________ 

EXERCi CIOS 

58 Coloque, usando a memoria de tela, um ponto "final" na tela. Ou seja: PRINT AT 
21,31; 

59 Preencha a 19 coluna com B, ou seja, usando a memoria de tela, fapa algo 
equivalente ao BASIC 

10 FOR 1=0 TO 21 

20 PRINT" B" 

30 NEXT I 

60 0 Exercfcio 58 e semelhante ao Programa 19, o Exercfcio 59 tern a mesma 
estrutura que o Programa 21. Para voce, terminaram as facilidades... Daqui para 
frente, vamos exigir muita criatividade de sua parte. Cada exercfcio desafiara voce, 
de alguma maneira. Mas, nao se preocupe: 

- os exercicios estao em ordem de dificuldade crescente, 

- se estamos juntos at§ agora, 6 porque voce gosta do assunto pelo menos tanto 
quanto eu; 

- voce e capaz! Vamos la! 

papa uma diagonal da tela, mas comepando em 0,31 e terminando em 21,10, usando o 

caractere de codigo 6. 

O programa BASIC equivalente seria 

10 FOR 1=0 TO 21 
20 PRINT AT 1,31-1;" SB “ 

30 NEXT I 


81 




61 Combinando ideias ja vistas ate agora, escreva um programa que encha a tela da 
seguinte forma: 

linha 0—► caractere 0 
linha 1 —* caractere 1 
linha 2 —* caractere 2 


linha 20 —*■ caractere K 
linha 21 —► caractere L 

Se voce acertar, devera gastar 19 bytes. 

62 Vamos fazer tres adaptagoes no Programa 23. A primeira delas e para que os 
caracteres que se sucedem na tela comecem no caractere numero 1 e terminem em 
Z. Sugestao: inicialize o caractere com 1, incremente-o e compare com 64. 

63 A segunda e que os caracteres iniciem com |3 e terminem no caractere numero 
136. Sugestao: inicialize o caractere com B| , decremente-o e compare com 135. 
Isto pode ser um bonito efeito de abertura de jogos... 

64 A terceira e positivamente espetacular: como passar por todos os caracteres da linha 
Sinclair? Observe atentamente o Exercicio 51, e a ideia Ihe surgira. Na verdade, o 
programa e escrito duas vezes, com a mesma estrutura, o elo de ligapao esta no 
Exercicio 51. Voce deve gastar 44 bytes! Ja vi um programa numa revista 
especializada que faz o mesmo efeito, mas gastando 71 bytes e usando uma 
estrutura de loops tao complicada que era um verdadeiro quebra-cabegas seguir o 
programa... 0 programa que voce vai fazer e economico e simples, sao virtudes. 


RESPOSTAS DOS EXERC1CIOS 

54 10 LET DF=PEEK 16396 + 256*PEEK 16397 
20 FOR S=1 TO 32 

30 POKE DF+S,151 
40 NEXTS 

55 10 LET DF=PEEK 16396 + 256*PEEK 16397 
20 FOR S=694 TO 725 

30 POKE DF + 3,151 
40 NEXTS 

56 10 LET DF=PEEK 16396 + 256*PEEK 16397 
20 FOR S=1 TO 694 STEP 33 

30 POKE DF+S,151 
40 NEXT S 

57 10 LET DF=PEEK 16396 + 256*PEEK 16397 
20 LET A=151 

30 FOR S=1 TO 32 
40 POKE DF +S,A 
50 NEXTS 
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60 FOR S = 34 TO 661 STEP 33 
70 POKE DF+S,A 
80 POKE DF+S+31,A 
90 NEXTS 

100 FOR 3=694 TO 725 
110 POKE DF+S,A 
120 NEXTS 

58 0 REM 10 caracteres quaisquer 


16514 

2A 

0C 

40 

LD HU(16396) 

16517 

11 

D5 

02 

LD DE/725 

16520 

19 



ADD HL,DE 

16521 

36 

IB 


LD (HL),27 

16523 

C9 



RET 


Duas maneiras para obter o numero 725: 

1?}33x L + C + 1 = 33x21 +31 + 1 = 693 + 32 = 725 
2?) othando no esquema... 


7251 256 

213 2 

/ V 
D5 02 

59 0 REM 15 caracteres quaisquer 


16514 

2A 

0C 

40 

LD HL,( 16396) 

16517 

23 



INC HL 

16518 

11 

21 

00 

LD DE33 

16521 

06 

16 


LD B,22 

16523 

36 

97 


LD (HL),151^—| 

16525 

19 



ADDHUDE | 

16526 

10 

FB 


DJNZ-5 - 1 

16528 

C9 



RET 

0 REM 14 caracteres quaisquer 


16514 

2A 

0C 

40 

LD HL,(16396) 

16517 

11 

20 

00 

LD DE,32 

16520 

06 

16 


LD B,22 

16522 

19 



ADD HL,DE^—» 

16523 

36 

06 


LD (HL),6 

16525 

10 

FB 


DJNZ -5 - 1 

16527 

C9 



RET 

0 REM 19 caracteres quaisquer 


INfCIO 

16514 

2A 

0C 

40 LDHU(D.FILE) 


16517 

3E 

1C 

LD A,28 ; caractere 0 


16519 

0E 

16 

LD C,22 ; conta linhas 

LOOP 1 

16521 

23 


INC HL ;salta NEW LINE 


16522 

06 

20 

LD B,32 ; conta colunas 
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LOOP 2 16524 

77 



LD (HL),A ; coloca caractere na tela 

16525 

23 



INC HL ; proxima posigao 

16526 

10 

FC 


DJNZ LOOP 2; completa linha 

16528 

3C 



INC A ; proximo caractere 

16529 

0D 



DEC C ; decrementa contador 





de linhas 

16530 

20 

F5 


JR NZ LOOP 1; proxima linha 

16532 

C9 



RET 

INICIO 16514 

3E 

01 


LD A,1 

TELA 16516 

2A 

0C 

40 

LD HL,(D.FILE) 

16519 

0E 

16 


LD CJinhas 

LOOP 1 16521 

23 



INC HL 

16522 

06 

20 


LD B,coiunas 

LOOP 2 16524 

77 



LD (HL),A 

16525 

23 



INC HL 

16526 

10 

FC 


DJNZ LOOP 2 

16528 

0D 



DEC C 

16529 

20 

F6 


JR NZ,LOOP 1 

16531 

3C 



INC A 

16532 

FE 

40 


CP 64 

16534 

20 

EC 


JR NZ,TELA 

16536 

C9 



RET 


0 programa ocupa ao todo 23 bytes, colocamos alguns rotulos para melhorar a sua 
compreensao. 

63 Se voce realmente esta entendendo, nao encontrou a menor dificuldade neste 
exercfcio. Tem apenas tres bytes diferentes em relagao ao Exercfcio 62. No 
enderego 16515, coloque 191 (POKE 16515,191), que transforma a instrugao de 
inicializagao do caractere em 3E BF (LD A,191). No enderego 16528, coloque 
61 (POKE 16531,61), que transforma a instrugao de atualizagao do caractere em 
3D (DEC A). Finalmente, no enderego 16533, coloque 135 (POKE 16533,135), 
que transforma a instrugao de controle do caractere em FE 87 (CP 135). Digite 
RAND USR 16514. Apos iniciar em e vir "descendo" a lista de caracteres, a 

tela para cinza. Verdade? Vamos usar este efeito. Suponha que voce escreveu urn 
jogo bem animado, e quer fazer uma bonita introdugao para ele. Que tat esta? 

0 REM aqui est3 o programa do Exercfcio 63 

5 PRINT AT 11,6;"DIG!TE J PARA JOGAR" 

10 IF IN KEYS <>"" THEN GOTO 10 
15 IF INKEY$="" THEN GOTO 15 
20 LET i$=INKEY$ 

25 IF 1$ <> "J" THEN GOTO 10 
30 RAND USR 16514 
35 PRINT "TITULO DO JOGO" 
etc. 

Escreva o tftulo do jogo sobre a tela cinza, fica bonito. E voce tem uma abertura 
bem movimentada, como o seu jogo. 
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64 0 REM 44 bytes 


INfCIO 16514 

3E 

01 


LD A,1 

TELA 16516 

2A 

0C 

40 

LD HL,(D.F!LE) 

16519 

0E 

16 


LD CJinhas 

LOOP 1 16521 

23 



INC HL 

16522 

06 

20 


LD B,colunas 

LOOP 2 16524 

77 



LD (HL),A 

16525 

23 



INCHL 

16526 

10 

FC 


DJNZ LOOP 2 

16528 

0D 



DEC C 

16529 

20 

F6 


JR NZ,LOOP 1 

16531 

3C 



INCA 

16532 

FE 

40 


CP 64 

16534 

20 

EC 


JR NZJELA 

INfCIO' 16536 

87 



ADD A,A ; passa A de 64 para 128 

TELA' 16537 

2A 

0C 

40 

LD HL,(D.FILE) 

16540 

0E 

16 


LD CJinhas 

LOOP V 16542 

23 



INCHL 

16543 

06 

20 


LD B,colunas 

LOOP 2' 16545 

77 



LD (HL),A 

16546 

23 



INC HL 

16547 

10 

FC 


DJNZ LOOP 2' 

16549 

0D 



DEC C 

16550 

20 

F6 


JR NZ LOOP V 

16552 

3C 



INCA 

16553 

FE 

C0 


CP 192 

16555 

20 

EC 


JR NZJELA' 

16557 

C9 



RET 


Em relapao aos 71 bytes do programa que vi, me parece que anosso esta bem 
melhor... 
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8.1 


INTRODUQAO 

Neste capitulo vamos exercitar o que aprendemos. Veremos exerci'cios de todos os tipos: 
f£ceis, medios, difi'ceis... O primeiro deles funcionara como uma verdadeira revisao. 


8.2 

EXERCfCIOS 

65 BOAS E MAS IDEIAS PARA ENCHER A TELA 

Vamos agora a um longo exerctcio, dividido em duas partes. O exerci'cio exigira muito de 
voce, em atengao e criatividade. 

O programa que apresentamos funciona: e!e enche a tela com o conteudo do enderego 
16514, e retorna ao BASIC. Acontece que ele funciona APESAR de todos os seus 
defeitos estruturais: o programa pode e deve ser muito melhorado. 

Quem vai melhora-lo? Ora, voce, e claro. 


7? PARTE 

Faga a desmontagem do programa, preenchendo as lacunas. Use e abuse do Apendice 9. 
Observe que numeramos as instrugoes, para que depois voce responda algumas coisas 
sobre elas. 


16514 

17 



codigo do caractere.. 

16515 

2A 

0C 

40 

inst. 1 


16518 

23 



inst. 2 


16519 

06 

16 


inst. 3 


16521 

0E 

21 


inst. 4 


16523 

7E 



inst. 5 


16524 

FE 

76 


inst. 6 


16526 

28 

04 


inst. 7 


16528 

3A 

82 

40 

inst. 8 


16531 

77 



inst. 9 


16532 

23 



inst. 10 


16533 

0D 



inst. 11 


16534 

20 

F3 


inst. 12 


16536 

10 

EF 


inst, 13 


16538 

C9 



inst. 14 



ATENQAO: RAND USR 16515 


Capftulo 



MISCELANEA DE EXERCfCIOS 



















Agora que voce fez a desmontagem do programa, responds: 

a) £ necessaria uma linha 0 REM com quantos caracteres? 


b) No enderepo 16514, esta o codigo de qual caractere? 


c) Qual a instrupao 1? Para que serve? 


d) Qual a diferenpa entre LD HL,NN e LD HL,(NN)? 


e) Qual a instrupao 2? Para que serve? 


f) Os registradores de 16 bits sao uteis como contadores? Por que? HL esta sendo 
usado como contador? 


g) Qua! a instrupao 3? Para que serve? 


, h) Qual a instrupao 4? Para que serve? 


i) Qual a instrupao 5? Para que serve? 


j) Qual a instrupao 6? Para que serve? 


k) Observando agora a instrupao 6, a instrupao 5 poderia ter usado outro registrador 
que nao A (por exempio D ou E, nao usados neste programa)? 


I) Qua! a instrupao 7? Para que serve? 


m) No casodeserimplementada, para que enderepo a instrupao 7 desvia o programa? 


n) Qual a instrupao 8? Para que serve? 
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o) Qual a instrupao 9? Para que serve? 


p) Qual a instrupao 10? Para que serve? 


q) Qual a instrupao 11? Para que serve? 


r) Qual a instrupao 12? Para que serve? 


s) No caso de ser implementada, para que enderepo a Instrupao 12 desvia o 
programa? 


t) Qual a instrupao 13? Para que serve? 


u) No caso de ser implementada, para que enderepo a instrupao 13 desvia o 
programa? 


v) Qua! a instrupao 14? Para que serve? 


2? PARTE 

Vamos agora a fase mais diffcil, mas tambem mais interessante do trabalho: otimizar o 
programa, a partir das sugestoes que daremos. 

/a sugestao: Reservar o enderepo 16514 para o codigo do caractere, carregar o 
acumulador com o conteudo deste enderepo e colocar o conteudo do acumulador na tela, 
tudo isto consome 5 bytes. Senao veja: 

1 byte para o codigo do caractere, colocado em 16514 
3 bytes para LD A,(16514) 

1 byte para LD (HL),A 

Tudo isto pode ser reduzido a apenas 2 bytes, com o uso da instrupao LD H L, caractere. 

2a sugestao: O final de linha esta sendo verificado 2 vezes: pelo contador C e pela 
comparapao com 118, Naturalmente apenas uma verificapao e necessaria. No Programa 22, 
usamos dois contadores: C para linhas e B para coiunas. Aqui, para fazermos um programa 
diferente (no bom sentido, e claro), sugerimos a comparapao com 118. 

3? sugestao: E possivel colocar apenas uma instrupao INC HL, ao inves das duas do 
programa. 

Sugestao de roteiro para o programa otimizado 

LD B,linhas 
LD HL,{D.FILE) 

LOOP INCHL 
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LD A,(HL) 

CP NEW LINE 
JR Z,PROXL!NHA 
LD (HL),caractere 
JR, LOOP 

PROXLINHA DJNZ LOOP 
RET 

Seu programa devera gastar 18 bytes (7 bytes a menos do que o programa original). 
Escreva-o cuidadosamente, calcule os saltos, e rode-o. Apos ve-lo funcionar, confira com 
nossa resposta. 

A finalidade deste programa e basicamente didatica — observar as varias maneiras de se 
chegar a uma mesma finalidade. 

Estude cuidadosamente o programa que voce fez, e nao passe adiante enquanto nao 
entender o funcionamento exato de cada instrugao. Lembre-se de que o programa foi 
otimizado, e cada instrugao nele presente e realmente necessaria. 

66 TROCANDO CARACTERES NA TELA 

Este programa faz um efeito semelhante a inversao de vfdeo, e vai nos preparar para 
entende-la. Sim, porque inversao de vi'deo, um efeito que voce certamente ja viu (e quern 
sabe ate invejou) em programas comerciais, e um dos proximos que faremos! Ou melhor, 
voce f ara! 

Esta rotina em linguagem de maquina troca todos os caracteres espaco (enderego 16524!^ 
por espapo invertido (enderego 16528). Naturalmente, se Ihe interessar, voce pode, de 
acordo com suas conveniencias, alterar os conteudos destes enderecos. Por exemplo, para 
trocar o ponto decimal americano pela virgula decimal brasileira na apresentagao de um 
programa financeiro, que envolva quantias brasileiras em dinheiro. Nem so para joguinhos 
e efeitos de tela serve a linguagem de maquina... 

Vamos la, a rotina ocupa apenas 22 bytes. 

LD HL,(D.FILE) 

LD B,linhas 
LINHA INCHL 

LD C,colunas 
PEEK LD A,{HL) 

CP espago 
JR NZ,PROXPOS 
LD (HL),espago invertido 
PROXPOS INC HL 

DEC C 
JR NZ,PEEK 
DJNZ LINHA 
RET 

Apos escrever o programa em codigos hex a, tomando o habitual cuidado com os saitos 
para tras e para frente, digite (modo direto) RAND USR 16514. Se voce acertou, devera 
obter toda a tela cheia com espago invertido. E isto a rotina? Nao, claro. 
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Cerque-a com o seguinte programa BASIC, alterando a linha 10 para o PRINT AT que 
achar melhor... 

10 PRINT AT 10,8;"NOME DO PROGRAMA" 

20 GOSUB 100 
30 RAND USR 16514 
40 GOSUB 100 
50 CLS 
60 LIST 
70 GOSUB 100 
80 RAND USR 16514 
90 STOP 

100 FOR X=1 TO 50 
110 NEXT X 
120 RETURN 

(Apague todas as linhas do CARREGADOR ASSEMBLY, para garantir que a listagem 
caiba na tela, do contrario seu programa parara com 5/60.) 

67 A ESCADA 

0 programa abaixo enche a tela com dois caracteres (* e D ), retornando ao BASIC 
sem problemas. 0 efeito e bonito, e muito veloz. Digite-o (voce vera por que o nome 
"escada”), e estude detalhadamente cada instrugao. Seu exerci'cio esta dividido em varias 
partes. 

1? PARTE: DESMONTAGEM DO PROGRAMA 

0 REM 33 caracteres quaisquer 

R6TULOS ENDEREQOS C6DIGOSHEXA | MNEM0NICOS j COMENTARIOS 
. 16514 2A 0C 40 

16517 23 

16518 06 16 

16520 0E IF 

. 16522 3E 17 

16524 51 

16525 IE 20 

. 16527 77 

16528 23 

16529 ID 

16530 15 

16531 C2 8F 40 

16534 3E 97 

. 16536 77 

16537 23 

16538 ID 

16539 C2 98 40 

16542 23 

16543 0D 

16544 10 E8 

16546 C9 
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2? PARTE: ALTERAQOES 

Bern, agora voce esta convidado a alterar este programa, reduzindo-o a apenas 28 bytes. 

Eis as nossas sugestdes: 

1?) 0 enderego indicado por HL pode ser carregado diretamente, sem o uso do 
registrador A, atraves de instrugao LD (HL),N, cujo codigo hexa e 36 N, onde 
Neum numero em hexa na faixa de 00 ate FF. Assim, LD A,23 e LD (HL),A 
podem ser substitufdos por LD (HL),23. Da mesma forma, LD A,151 e 
LD (HL),A podem ser substitufdos por LD (HL),151. Isto economiza urn byte 
de cada vez, ou seja, 2 bytes ao total. 

2?> Transforme os saltos absolutos em saltos relativos, ou seja, troque JP NZ por 
JR NZ. Use a tabela de complemento de dois — Apendice 4. Isto, alem de 
economizar 1 byte de cada vez, ou seja, 2 bytes no total, faz com que o 
programa possa ser colocado a partir de qualquer enderego inicial, e nao 
obrigatoriamente de 16514. 

3?) Alterando a ordem das instrugoes inicials, e o enderego de retorno da instrugao 
DJNZ, voce pode dlspensar o INC HL atualmente no enderego 16537 e 
"aproveitar" o INC HL que esta agora no enderego 16517 para a mesma 
finalidade. Frisando bem: para consegulr isto e necessario alterar a ordem das 
instrucoes iniciais . Isto economiza m a is urn byte. 

Bom trabalho. Digite o seu programa, verifique se o efeito e o mesmo, e confira com a 

resposta que apresentamos. 


3? PARTE: MAIS ALTERAQOES 

Seu exercfcio agora e alterar novamente o programa, diminuindo ainda mais o numero de 
bytes, desta vez para apenas 24 bytes (!). A sugestao desta vez e usar a instrugao RST 10 
que, como voce sabe, coloca na tela o conteudo do acumulador (A). Assim sendo, 


- dispense: LD HL,(D.FILE) 

INC HL 
LD (HL),23 
LD (HL),151 

— aproveite: os contadores e o esquema de saltos relativos, naturalmente 
recalculados 


— use : 

l LD A,23 

1 RST 10 

para colocar * na tela 


i LD A,151 

1 RST 10 ' 

para colocar @1 na tela 

Divirta-se. 




68 MOLDURA NATELA 

A rotina que vamos apresentar coloca uma moldura na tela, usando para isto o caractere 
D. Seu exercfcio sera fazer a desmontagem desta rotina, e explicar a finalidade de cada 
instrugao. 


91 



Alem de util, pois usando-se como linha de programa BASIC a moldura e colocada 
instantaneamente na tela (RAND USR 16514), a rotina esta escrita da maneira mais 
didatica possfvel. Introduza afguns rotulos para facilltar a sua compreensao. 

0 REM 31 caracteres quaisquer 

ROTULOS ENDEREQOS c6dIGOS HEXA MNEMONICOS COMENTARIOS 

. 16514 2A 0C 40 . 

16517 06 20 .:. 

16519 3E 97 . 

. 16521 23 . 

16522 77 ... 

16523 10 FC . 

16525 06 14 . 

. 16527 23 . 

16528 23 . 

16529 77 . 

16530 11 IF 00 . 

16533 19 .. 

16534 77 . 

16535 10 F6 . 

16537 06 20 . 

16539 23 . 

. 16540 23 . 

16541 77 . 

16542 10 FC . 

16544 C9 I . 


Apos ter feito a desmontagem da rotina, responda as seguintes perguntas: 

a) Em que enderego esta o codigo do caractere que faz a moldura? 


b) Que comando pode ser digitado a partir do BASIC (modo direto) para que o 
caractere que faz a moldura passe a ser espago reverso? 


c) Qual o enderego do ultimo byte do conjunto de instrugoes que faz a linha 
superior da moldura? 


d) Quais os enderegos dos bytes inicial e final do conjunto de instrugoes que faz os 
lados da moldura? 


e) Quais os enderegos dos bytes inicial e final do conjunto de instrugoes que faz a 
linha inferior da moldura? 


f) Qual a finalidade da instrugao do enderego 16527? 


92 





















































g) Qua! o enderego da instrugao de mesma finalidade que a citada na letra f? 


h) Que aconteceria se estas instrugoes fossem suprimidas? 


Agora, um exercfcio de programagao. A ideia e obter o mesmo resultado final, usando a 
instrugao RST 10. Se voce acertar, a nova rotina levara 29 bytes. 

ROTE1RO 


DA UNHA SUPERIOR 

a) use B como contador para 32 caracteres 

b) carregue o acumulador com B 

c) coloque-o na tela com RST 10 

d) volte para completar a linha 

2) AS VINTE LINHAS DO MEIO 

a) use B como contador para 20 linhas 

b) coloque B na tela com RST 10 

c} use C como contador para 30 espagos 

d) carregue o acumulador com espago 

e) coloque espago na tela com RST 10 

f) decremente C 

g) volte para completar os 30 espagos 

h) carregue o acumulador com B 

i) coloque B na tela com RST 10 

j) volte para completar as 20 linhas 

3) A UNHA INFERIOR 

a) use B como contador para 32 caracteres 

b) coloque Ol na tela com RST 10 

c) volte para completar a linha 

d) nao esquega da famosa instrugao para retornar ao BASIC 

Ap6s rodar o programa, responda: por que ele e mais lento (visivelmente) que o programa 
apresentado no exercicio, se gasta 2 bytes a menos?.. 


69 AINVERSAODE VfDEO 

A ideia da inversao de video e bastante simples. Senao, observe: 

a) £ necessdrio varrer a tela toda; logo, 2 contadores: usemos B para contar linhas e 
C para contar colunas. 

b) Apos saitar o NEW LINE, colocamos o que estiver na tela em A: LD A,(HL), o 
que equivale em BASIC a LET A=PEEK HL, 

c) Adicionamos 128 a A, o que tern o seguinte efeito: 

se A=23 entao o novo valor de A e 23+128=151 
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se A=151 entao o novo valor de A=151 +128=279, o que nao "cabe"em A; 
logo A contera 279-256=23. 

Observando o Apendice 2, voce compreendera que * e transformado em D, e D e 
transformado em *. 

d) Colocamos o valor de A atualizado na tela: LO (HL),A, o que equivale em 
BASIC a POKE HL,A; e. passamos a prbxima posigao. 

e) Decrementos de contadores e saltos para tras completam o programa, que tem 
entao a seguinte estrutura: 

INfCIO LD HL,(D.FILE) 

LD BJinhas 
SALTA NL INCHL 

LD C,co!una$ 

PEEK LD A # (HL) 

ADD A, 128 
LD (HL),A 
INC HL 
DEC C 
JR NZ,PEEK 
DJNZ SALTA NL 
RET 

Maos a obra! Se voce escreve-lo direito, devera ocupar apenas 19 bytes. 

Para testS-lo, vamos escrever um programa BASIC. 

10 FOR F=0 TO 21 

20 PRINT AT F,F;"M—l—C—R—O" 

30 NEXT F 
40 GOSUB 100 
50 CLS 
60 LIST 
70 GOSUB 100 
80 STOP 

100 FOR N = 1 TO 7 
110 RAND USR 16514 
120 FOR A=1 TO 2 
130 NEXT A 
140 NEXT N 
150 RETURN 

A sub-rotina das llnhas 100 a 140 produz o efelto da tela "piscar", bastante usado para 
simular explosdes em jogulnhos. As linhas 120 e 130 fazem um retardo que melhora o 
efeito. 

Agora, um desafio a voce:adaptaro programa ASSEMBLY que escreveu para inverter 
somente os caracteres realmente impresses, nao invertendo os espagos. Ou seja, espapos 
continuam a ser espagos. Sugestao: apos LD A,(HL), fazer CP 0 e o JR Z adequado para 
saltar ADD A, 128 e LD (HL),A, passando para a proxima posigao da tela ao encontrar o 
espago. Isto provoca um aumento de 4 bytes: o novo programa deve gastar 23 bytes. 
Teste-o com o mesmo programa BASIC. 
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70 UM NOVO CLS 

A ideia deste programa me surgiu atraves da leitura do livro ja citado, Programagao em 
Assembler e Llnguagem de Maquina, de David C. Alexander, da Editora Campus. Ele e 
voltado para a linha TRS-80, que tambem usa o Z-80. 

E possfvel "chamar" a sub-rotina da ROM que faz CLS. Consultando o "mapa da mina", 
ou melhor dizendo, o “mapa da ROM" do Apendice 14, vemos que o enderego de CLS e 
0A2A, ou seja, 10 x 256 + 42 = 2602. 

Assim sendo, a digitagao (modo direto) de RAND USR 2602 tern rigorosamente o mesmo 
efeito que CLS. Podemos fazer isto em um programa ASSEMBLY: 

16514 CD 2A 0A CALL 2602 (CALL CLS) 

16517 C9 RET 

Vamos escrever agora um programa NOSSO que faga CLS mais depressa que o CLS da 
ROM! Isto e possfvel? Claro! 

Antes de mais nada, dois detalhes; 

19) Vamos coloca-lo imediatamente apos o anterior, ou seja, do enderego 16518 
em diante. Programas distintos em linguagem de maquina podem ser colocados 
numa mesma linha de REM, desde que voce os “chame" no enderego correto. 
Veja la. 

— para chamar o CLS da maquina, faremos RAND USR 16514; 

— para chamar o "nosso" CLS, RAND USR 16518. 

29) CLS nao apenas limpa a tela, mas tambem posiciona o cursor de impressao em 
0, 0. Observe como sera a coisa: 

— enderegos de 16518 ate 16533, um programa do tipo do PROGRAMA 22 
que encha a tela com espagos; 

— enderegos de 16534 ate 16536, CALL PRINT AT 0,0. Se nao se lembrar 
mais, consulte o Capftulo 4. 

— enderego 16537, RET 

Os dois programas ocupam juntos 24 bytes. Para que voce possa constatar o quanto 
“nosso" programa e mais rapido do que o CLS do micro, digite este programinha BASIC. 

10 GOSUB 100 
20 RAND USR 16514 
30 GOSUB 200 
40 FOR T—1 TO 60 
50 NEXT T 
60 GOSUB 100 
70 RAND USR 16518 
80 GOSUB 200 
90 STOP 

100 FOR P-9 TO 21 

110 PRINT AT F,F;"COMPUTADOR" 

120 NEXT F 

130 "RETURN 

200 PRINT “TELA LIMPA" 

210 RETURN 
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INSTRUCOES que usam a pilha 


0 proximo programs - espetacular sob todos os pontos de vista - usa todos os 
registradores; A, B, C, D,E,HeL,e nao e suficiente... 

usaremos a PILHA DE DADOS (STACK), uma maneira excelente para salvar dados. 

PI LHA e a regia“o da memoria apos o programs, e que esta dispon.'vel para nos. A pilha e 
construida detras para frente: seu valor inicial e dado pela vanavel do s,sterna ERR.SP, 
cujos enderegos sao 16386 e 16387. 

Suponha que o endereco do primeiro byte disponfvel, para nosdapilhaseja 
sera apontado por ERR.SP). Vamos colocar na pilha os numeros 14,29 e 35, nest 


ENDEREQO 

31000 

30999 

30998 

30997 


CONTELIDO 



PONTEIRO 

ERR.SP 


Enquanto a variavel do sistema ERR.SP indica a parte de baixoda pilha, urn registrador 

especial de 16 bits, SP (stack pointer), aponta para o topo da pilha, 

INSISTIMOS: a pilha e construida de tras para frente, ou de cabega para baixo (visualize 
como achar melhor... 

Para retirar os numeros que colocamos la, o primeiro que vai sair e 35, depois 29, depois 
?A - o (,Lo a antrar 4 o primeiro a sair - 4 conhecdo pela expressao 

inglesa LI FO^ /ast in, ^irst out. 

Podemos colocar na pilha os conteudos dos registradores de 16 bits - a instrupao 
chama-se PUSH. Ao colocarmos mais dados na pilha, o valor de SP e decrementado. 

Podemos colocar no ,opo da pilha os con.eodos de BC. DE HL e AR AMrtfjo espial 
para este par - e formado pelo acumulador e pelo registrador de estado F. Nao ex.ste 
nenhuma instrupao para carregar (LD) AF. 

Para retirar da pilha, a instrupao e POP. 

Os codigos hexa destas instrugoes sao: 


PUSH BC 
PUSH DE 
PUSH HL 
PUSH AF 


POP BC 
POP DE 
POP HL 
POP AF 


A correspondence BASIC e a seguinte. 

PUSH HL 

(coloca na pilha os conteudos de H e L) 

POP HL . , . . 

(recupera da pilha os conteudos de L e H malterados) 


POKE SP—1,H 
POKE SP-2,L 
LET SP=SP—2 

LET L=PEEK SP 
LET H=PEEK (SP+1) 
LET SP=SP+2 
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Algumas observances: 

- apos PUSH BC e PUSH DE, para recuperar os valores a ordem correta e POP DE 
seguidode POP BC; 

- se apos PUSH BC e PUSH DE fazemos POP BC e POP DE, os conteudos de BC 
e DE s§o trocados ; 

“ o numero de PUSH e POP numa sub*rotina deve ser igual. 

- usaremo$, no programa a seguir, PUSH AF e POP AF para salvar e depois 
recuperar o valor contido no acumulador. 


8.4 


UM OLTIMO EXERCiCIO: 0 ESPELHO 

71 0 leltor conhece nossa admiragao por Lewis Carroll (ver Capftulo 5, Exercicio 

48). Vem dele, e novamente de Through the Looking-Glass (1871), a inspirapao 
para o ultimo programa deste capitulo. A passagem que citamos e intrigante: 

- Voce gostaria de viver no Pafs dos Espelhos, Kitty? Ser<5 que 1$ Ihe dariam leite? 
Talvez o leite do Pafs dos Espelhos nSo seja bom para beber. 

Nossa tarefa e obter uma rotina em linguagem de maquina que simufe o efeito de um 
espelho coiocado verticalmente no meio da tela de TV: cofoque o caractere da posicao a b 
na posigao a,31-b. Observe a Figura 1. 
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Se a tela initial contiver isto, a rotina de m£quina deveri converte-la nisto 
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Como conseguir tal efeito? £ simples e elegante. E incrivelmente econdmico — a rotina 
inteira leva apenas 28 bytes. Vamos la. Nao ligue o micro ainda - primeiro vamos 
entender. 
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Vamos usar a tela inteira, e nosso costumeiro esquema de 2 

linhas e C as colunas, mas desta vez C vai ser usado de maneKa a'^erenfe. Pa 

iniciar a retina, precisamos de do is ponteiros para as posipoes de tela. UsaremosHL e . 

Deselamos que HL aponte para a primeira posipSo da primeira Imha apos o espelho, e DE 

aponte para a primeira posipSo da primeira linha antes do espelho. Veja a F.gura 2. 



Vejamos como conseguir isto: 

LD HL,( 16396) 

LD DE,16 
ADD HL,DE 

ui aaora anonta para a posipSo que desejamos para DE! Se nao compreendeu observe 
atentamentea figura da tela de TV do Capftulo 6, e reveja o Programa 19 e o Exercfcio 
58. Se voce andou saltando coisas por af, vai ser diffcil entender este programa... 

Logo, precisamos transferir este enderepo para DE: 


LD D,H 
LD E,L 

£ o jeito, pois nao existe LD DE,HL... 
Agora vamos fazer HL assumir o seu lugar: 


INCHL 

Chegamos h situapao da Figura 2. 

Aqora precisamos trocar os conteudos destes enderepos e recolocS-los na tria «****- 
B e C jci estao comprometidos, pois serSo usados como contadores. Assim, 
acumuiador. Precisamos da pilha. Veja como seri feito: 


LD A,(HL) 

Como sabemos, isto equivale a LET A=PEEK HL. 0 acumuiador agora 
do caractere apontado por HL. Vamos guardar isto na pilha: 


cont6m o c6digo 


PUSH AF 

Vamos agora apanhar o codigo do caractere apontado por DE 
LD A,(DE) 

e coloca-lo na posipao apontada por HL 
LD (HL),A 
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isto equivale ao esquema BASIC; 

LET A-PEEK DE 
POKE HL,A 

Agora vamos recuperar o codigo do caractere apontado por HL que esta guardado na 
pilha: 

POP AF 

e coloca-lo no enderego apontado por DE 
LD <DE),A 

Esta compieta a troca! Para passarmos para as proximas posipoes da teia, guardando a 
Ideia de espelho, 

IMC HL 
DEC DE 

Veja a Figura 3. 



Quantas vezes precisamos repetir isto? Basta consultar a figura e ver que $ao 16 vezes 
para completar a linha. 

Fazendo este loop, usando C como contador para as 16 trocas, chegaremos ao final da 
primeira linha, e a un) ponto crucial do programa: HL aponta agora para o NEW LINE do 
fim da primeira linha . Ou seja, uma linha "mais tarde", estamos como estavamos apos 
a instrupao LD HL,( 16396). Usaremos B como contador para 22 linhas, e esta pronto o 
programa! Estude-o cuidadosamente, escreva-o em codigos hexa, com auxi'lio dos 
Apendices 9 e 4, e rode-o! 

0 REM.caracteres quaisquer 


rOtulos 

ENDEREQOS 

C6DIGOS hexa 

mnemOnicos 

COMENTARiOS 

INfCIO 

16514 


LD HL,( 16396) 
LD 8,22 

LD DE f 16 

ADD HL,DE 

LD D,H 


, 16517 


; contador para 

22 linhas 

PONTEIROS 

16519 


16522 




16523 
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16524 


LD E,L 

16525 


INC HL 

16526 


LD C,16 ; contador para 



16 trocas por 



linha 

TROCA 16528 


LD A,(HL) 

16529 


PUSH AF 

16530 


LD A,(DE) 

16531 


LD (HL),A 

16532 


1 POP AF 

16533 


LD (DE),A 

16534 


INC HL 

16535 


DEC DE 

16536 


DEC C 

16537 


JR NZ.TROCA 

16539 


DJNZ PONTEIROS 

16541 


RET | 


Para testar a rotina, de efeito totalmente inesperado, use o seguinte programa BASIC 
("apague" as linhas do carregador ASSEMBLY, para a listagem "caber" em uma tela, pois 
iremos usS-la como parte do efeito). 

10 INPUT 1$ 

20 IF PEEK 16442 =2 THEN CLS 
30 PRINT 1$ 

40 GOSUB200 
50 RAND USR 16514 
60 GOTO 10 
200 FOR T=0TO 30 
210 NEXT T 
220 RETURN 

Depois de brincar de inverter 6 seu nome e o de toda a famftia (o meu e NOSLEN e o de 
minha mulher e AIMEON...), acrescente estas linhas — o efeito 6 espetacular. 

100 LIST 
110 GOSUB200 
120 RAND USR 16514 
130 GOTO 110 

Digite RUN 100 e veja algo que nunca viu antes — nem poderia ver de outra maneira 
senlo gramas a linguagem de maquina... 

RESPOSTAS DOS EXERCfCIOS 

65 DESMONTAGEM DO PROGRAMA 

16514 23 

16515 Lb HL,<16396) 

16518 .1NCHL 


100 



















16519 

LD B,22 

LINHA 

16521 

LD C,33 

PEEK 

16523 

LD A,(HL) 


16524 

CP 118 


16526 

JR Z,4 (JR Z,PROXPOS) 


16528 

LD A, (16514) 


16531 

LD (HL),A 

PROXPOS 

16532 

INC HL 


16533 

DEC C 


16534 

JR NZ,—13 (JR NZ, PEEK) 


16536 

DJNZ—17 (DJNZ LINHA) 


16538 

RET 


(inciufmos alguns rotulos para facititar a compreensao). 

RESPOSTAS DAS PERGUNTAS 

a) 25 caracteres quaisquer 

b) * 

c) LD HL,(16396) equivale a J LET L=PEEK 16396 

(LET H=PEEK 16397 

Ou seja, o par de registradores HL e carregado com PEEK 16396+266 *PEEK 

16397. Como sabemos, em 16396 (4000 "mora" a variave! do sistema D.FILE, 

que contem o enderego do primeiro byte do arquivo de imagem. 

d) LD HL.NN carrega o par de registradores HL com o numero representado por 
NN (urn numero entre 0 e 65535). LD HL,(NN) e equivalente a LET L=PEEK 
NN e LET H=PEEK (NN + 1). 

e) INC HL HL e agora o ponteiro do arquivo de tela, e seu primeiro "caractere" e 
urn NEW LINE, que deve ser saltado. Lembre-se: e sempre verdade que 

PEEK (PEEK 16396+256*PEEK 16397)=118. 

f) NSo, porque as instrugoes INC e DEC para pares de registradores NAO afetam 
nenhuma FLAG. Logo, como controlar o final da contagem? Nao. 

g) LD B,22. Faz do registrador B um contador para 22 lirihas. Lembre-se que B e 
privilegiado como contador, pela existencia da instrugao DJNZ. 

h) LD C,33. Faz do registrador C um contador para 33 "caracteres” por linha: os 
32 da tela e um NEW LINE de final de linha. 

i) LD A,(HL). Coloca no registrador A o codigo do "caractere" apontado por HL. 
Equivale a LET A=PEEK HL. 

j) CP 118. testa se o conteudo de A e um caractere de video ou um NEW LINE 
(118). 

k) Nao, pois a instrugao CP (COMPARE) tern como "alvo" exclusivo o registrador 
A, que e o acumulador. 

l) JR Z.4. No caso do caractere ser um NEW LINE (118-118 = 0 e a ZERO FLAG 
6 ativada-"$etada"), 0 programa e desviado para o enderego 16532 (rotulo 
PROXPOS-proxima posigao), que contem a instrugao INC HL. 
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m) 16532. 

nl LD A (16514). Carrega o acumulador com o conteudo do enderego 16514 
(o codigo do sinal grafico *). Equivale a LET A—PEEK 16514. 

o) LD (HL),A. Coloca no video o caractere *, cujo codigo foitransferido do 
enderego 16514 para o acumulador. Equivale a POKE HL,A;ou seja, PO 
HL,23. Compare com a resposta da letra i. 

p) INC HL. Aponta para a proxima posigao da tela. 

q) DEC C. Decrementa o contador C. 

r) JR NZ —13 Enquanto o contador C nao atingir 0 (fim de linha), o programa e 
desviado para o enderego 16523 (rotulo PEEK), que contem a instrugao 

LD A,(HL). 

$) 16523. 

t) DJNZ —17. Decrementa o contador B, e enquanto nao atingir 0 (fim de 
programa, pois teremos trabalhado as 22 linhas), o programaedesvadopara o 
enderego 16521 (rotulo LINHA), que contem a instrugao LD C,33. Ou seja, 
prepara para iniciar mais uma linha. 

u) 16521. 


v) RET. Volta ao BASIC. 



0 NOVO PROGRAMA 


0 REM 18 caracteres quaisquer 




16514 

06 

16 


LD B,22 

16516 

2A 

0G 

40 

LD HL,( 16396) 

LOOP 16519 

23 



INC HL 

16520 

7E 



LD A,(HL) 

16521 

FE 

76 


CP 118 

16523 

28 

04 


JR Z,4 (JR Z,PROXLINHA) 

16525 

36 

17 


LD (HL),23 

16527 

18 

F6 


JR,—10 (JR,LOOP) 

PROXL1NHA 16529 

10 

F4 


DJNZ -12 (DJNZ LOOP) 

16531 

C9 



RET 

RAND USR 16514 




Trabalhe em cima deste programa 

ate ter a certeza 

de te-lo compreendido — tern 


uma estrutura bastante interessante. 


66 


Direto ao assunto. .; 


0 REM 22 caracteres 


LINHA 


PEEK 


16514 

2A 0C 40 

16517 

06 16 

16519 

23 

16520 

0E 20 

16522 

7E 

16523 

FE . 00 

16525 

20 02 


LD HL,( 16396) 

LD B,22 
INC HL 
LD C,32 
LD A,(HL) ....; . 

CP 0 .... 

JR NZ,2 (JR NZ,PROXPOS) 
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16527 36 80 

PROXPOS 16529 23 • 

16530 0D 

16531 20 F5 

16533 10 F0 

16535 C9 


LD (HL),128 
INC HL 
DEC C 

JR NZ.-11 (JR NZ, PEEK) 
DJNZ-16 (DJNZ LINHA) 
RET 


Que tal o efeito? Observou a tistagem como ficou? A listagem tambem e uma tela. 


susceptive! a tudo que fizermos... 


67 If PARTE -OPROGRAMA COMO ERA 


R0TULOS 

INfCIO 


LOOP 


IMPR1ME 1 


IMPRIME 2 


ENDEREQOS 

16514 

16517 

16518 
16520 
16522 

16524 

16525 


16527 

16528 

16529 

16530 

16531 
16534 

16536 

16537 

16538 

16539 

16542 

16543 

16544 
16546 



mnemOnicos 

LD HL,( 16396) 

INC HL 
LD B,22 
LD C,31 
LD A,23 

LD D,C 

LD E,32 


LD (HL),A 
INCHL 
DEC E 

DEC D 

JP NZ, 16527 

LD A, 151 

LD (HL),A 

INC HL 
DECE 

JP NZ, 16536 

INC HL 

DEC C 

DJNZ -24 
RET 


comentArios 

; HLeponteirodo 
arquivo de 
imagem 

;salta NEW LINE 
; B conta linhas 
; C conta * 

; A tem o codigo 
de * 

; preserva o valor 
deC 
; E conta 
caracteres na 
I inha 

; coloca * na tela 
; proxima posigao 
; decrementa 
contador E 
; decrementa 
contador D 
; volta para 
IMPRIME 1 
; A tem o codigo 
de B 

; coloca D na 
tela 

; proxima posigao 
; decrementa 
contador E 
; volta para 
IMPRIME 2 
; salta o NEW 
LINE 

; decrementa o 
contador C 
; volta para LOOP 
; volta ao BASIC 
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2? PARTE - O PROGRAMA ALTERApO 
0 REM 28 caracteres quaisquer 
INfCIO 

LOOP 

IMPRIME 1 


IMPRIME2 


16514 

2A 0C 40 

16517 

06 16 

16519 

0E if 

16521 

23 

16522 

51 

16523 

IE 20 

16525 

36 17 

16527 

23 

16528 

ID 

16529 

15 

16530 

20 F9 

16532 

36 97 

16534 

23 

16535 

ID 

16536 

20 FA 

16538 

0D 

16539 

10 EC 

16541 

1 C9 


3? PARTE - 0 PROGRAMA COM RST 10 
0 REM 24 caracteres quaisquer 


iNrcio 

16514 

06 16 


16516 

0E IF 

LOOP 

16518 

51 


16519 

IE 20 


16521 

3E 17 

IMPRIME 1 

16523 

D7 


16524 

ID 


16525 

15 


16526 ' 

20 FB 


16528 

3E 97 

IMPRIME 2 

16530 

D7 


16531 

ID 


16532 

20 FC 


16534 

0D 


16535 

10 ED 


16537 

C9 

68 0 REM 31 caracteres quaisquer 

ROTULOS 

ENDEREQOS 

c6digoshexa 

INfCIO 

16514 

2A 0C 40 


16517 

06 20 


16519 

3E 97 


LD HL,(D.FILE) 

LD 6,22 
LD C,31 
INCHL 
LD D,C 
LD E,32 
LD (HL),23 
INC HL 
DEC E 
DEC D 

JRNZ-7 (JR NZ,IMPRIME 1) 
LD (HL),151 
INCHL 
DEC E 

JR NZ,-6 (JR NZ.IMPRIME 2) 
DEC C 

DJNZ -20 (DJNZ.LOOP) 

RET 


LD B,22 
LD C,31 
LD D,C 
LD E,32 
LD A,23 
RST 10 
DECE 
DEC D 

JR NZ,—5 (JR NZ,IMPRIME 1) 
LD A,151 
RST 10 
DEC E 

JR NZ,-4 (JR NZ,IMPRIME 2) 
DEC C 

DJNZ -19 (DJNZ LOOP) 

RET 


mnemOnicos 

LD HL,( 16396) 
LD B,32 

LD A,151 


COMENTARIOS 

; B= contactor de 
caracteres na 
linha 

; a = B 
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PROXPOS1 

16521 

23 


INCHL 


16522 

77 


LD (HU,A 


16523 

10 

FC 

DJNZ -4 


16525 

06 

14 

LD B,20 

PROX LIN 

16527 

16528 

16529 

23 

23 

77 


INCHL 

INCHL 

LD (HL),A 


16530 

16533 

16534 

1 11 

19 

77 

IF 40 

LD DE,31 
ADD HL,DE 
LD (HL),A 


16535 

16537 

10 

06 

F6 

20 

DJNZ-10 
LD B,32 

PROX POS 2 

16539 
! 16540 

16541 

23 

23 

77 


INC HL 
INCHL 

LD (HL),A 


16542 

10 

FC 

DJNZ-4 


16544 

C9 


RET 


; proxima posipao 
na tela 

; coloca Q na 
tela 

; completar a linha 
superior 

; contador de 
linhas 

;salta NEW LINE 
I ; proxima posipao 
; coloca El na 
tela 

; extensao do salto 
; salta 31 posipoes 
; coloca IB na 
tela 

; terminar os lados 
; B- contador de 
caracteres na 
linha 

; salta NEW LINE 
; proxima posipao 
; coloca B na 
tela 

; completar a linha 
inferior 


Vamos agora responder bs perguntas: 


a) 16520 

b) POKE 16520,128 

c) 16524 

d) 16525 el 6536 

e) 16537e16543 

f) saltar o NEW LINE de fim de linha 


g) 16539 mm 

h) Haveria CRASH do sistema, pois urn caractere H 
NEW LINE de fim de linha, e o micro se perderia 


seria 
, sem " 


colocado no lugar do 
saber" construir a tela. 


Agora, o programa alternative: 


(3 REM 29 caracteres quaisquer 


R6TULOS 

INfCIO 


ENDEREQOS 

16514 

16516 


C6DIGOSHEXA 
06 20 


3E 


97 


mnemOnicos 
LD B,32 

LD A, 151 


comentArios 

; B= contador de 
caracteres na 
linha 

; coloca O no 
acumulador 
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IMPRIME 1 

16518 

D7 


RST 10 


16519 

10 

FD 

DJNZ -3 


16521 

06 

14 

LD B,20 

IMPRIME 2 

16523 

D7 


RST 10 


16524 

0E 

IE 

LD C,30 


16526 

3E 

00 

LD A,0 

IMPRIME 3 

16528 

D7 


RST 10 


16529 

0D 


DEC C 


16530 

20 

FC 

JR NZ-4 


16532 

3E 

97 

LD A,151 


16534 

D7 


RST 10 


16535 

10 

F2 

DJNZ -14 


16537 

06 

20 

LD B,32 

IMPRIME 4 

16539 

D7 


RST 10 


16540 

10 

FD 

DJNZ -3 


16542 

C9 


RET 


; coloca B na 
tela 

; volta para 
completar a (inha 
; B= contador de 
[inhas dos 
"(ados" 

; coloca D na 
tela 

; contador para 
30 espapos 
; coloca espapo 
no acumulador 
; coloca espapo na 
tela 

; decrements 
contador 
; volta para 
completar 30 
espapos 
; carrega 

acumulador com 

B 

; completa a linha 
; volta para 
completar 20 
linhas 

; B= contador de 
caracteres na 
linha 

; imprime B 
; volta para 
completar a linha 
; volta ao BASIC 


Este programs e mais lento do que o outro por dois motivos principals: 


— RST 10 E MAIS LENTO do que fazer POKE direto na memoria de vfdeo. 
Lembre-se que RST 10 vai buscar uma sub-rotina cfe ROM para impressao. Isto 
perde tempo... 


— Este programs faz 704 impressoes, das quais 600 sao espapos, e isto perde 
tempo. O programs do texto faz "apenas" 104 impressoes (104 “32 + 20 + 20 
+ 32) — tern de ser mais rapido. Tem-se a impressao de que a moldura "entra" 
instantaneamente na tela (desculpe o trocadilho...) 


69 0 REM 19 caracteres quaisquer 


INfCIO 

16514 

2A 

0C 

40 LD HL,( 16396) 


16517 

06 

16 

LD B,22 

SALTA NL 

16519 

23 


INC HL 
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16520 

0E 

20 

16522 

7E 


16523 

C6 

80 

16525 

77 


16526 

23 


16527 

0D 


16528 

20 

F8 

16530 

10 

F3 

16532 

C9 



LD C,32 
LD A,(HL) 

ADD A,128 
LD (HL),A 
INC HL 
DEC C 

JR NZ,—8 (JR NZ, PEEK) 
DJNZ -13 (DJNZ SALTA NL) 
RET 


IS «i escrito em livro sobre o assunto que uma rotma 

caracteres presentes na tela, desde que e ^ s .®l f ®^Q 0 E x[sTE |0 A^nrtru?a^ ADD 
qrifo e nosso). Naturalmente que esta restnpao NAO EX'S11. « 

A,128 funciona da maneiraque explicamos no texto o exer 


Agora, o programa que "respeita" os espapos. 
0 REM 23 caracteres quaisquer 

INICIO 16514 2A 0C 4 

16517 06 16 

SALTA NL 16519 23 


PROX POS 


16514 

2A 

0C 

16517 

06 

16 

16519 

23 


16520 

0E 

20 

16522 

7E 

00 

16523 

FE 

16525 

28 

03 

16527 

C6 

80 

16529 

77 


16530 

23 


16531 

0D 


16532 

20 

F4 

16534 

10 

EF 

16536 

C9 



CP 0 

JR Z,3 (JR Z,PROX POS) 


INC HL 

JR NZ,—12 (JR NZ.PEEK) 
DJNZ -17 (DJNZ SALTA NL) 




70 1? PROGRAMA 

16514 CD 2A 

16517 C9 

29 PROGRAMA 

16518 06 16 

16520 2A 0C 

16523 23 

16524 0 E 20 

16526 36 00 

16528 23 

16529 0D 

16530 20 FA 

16532 10 F5 


CALL 2602 (CALL CLS) 
RET 


LD B,32 
LD HL,(16396) 
INC HL 
LD C,32 
LD (HL),0 
INC HL 
DEC C 
JR NZ,—6 
DJNZ -11 
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Note que nesta ocasiao a tela esta limpa, B = 0 e C = 0. Tudo perfeito para 
chamarmos a rotina de posicionamento de cursor (PRINT AT 0,0). Para qualquer 
duvida, recomendo que leia outra vez o Capi'tulo 4. 

16534 CD F5 08 CALL 2293 
16537 C9 RET 

Os dols programas juntam-se e ocupam agora 24 bytes apenas. 

Rode o programa BASIC fornecido, e aprecle a diferenga de velocidades. 

71 0 REM 28 caracteres quaisquer 


ROTULOS 

ENDEREQOS 

CODIGOS HEXA 

mnemOnicos 

INfCIO 

16514 

2A 0C 40 

LD HL r ( 16396) 


16517 

06 16 

LD B,22 

PONTE IR OS 

16519 

11 10 00 

LD DE f 16 


16522 

19 

ADD HL,DE 


16523 

54 

LD D,H 


16524 

5D 

LD E,L 


16525 

23 

INC HL 


16526 

0E 10 

LD C,16 

TROCA 

16528 

7E 

LD A,(HL) 


16529 

F5 

PUSH AF 


16530 

1A 

LD A,(DE) 


16531 

77 

LD (HL),A 


16532 

FI 

POP AF 


16533 

12 

LD (DE),A 


16534 

23 

INCHL 


16535 

IB 

DEC DE 


16536 

0D 

DEC C 


16537 

20 F5 

JR NZ,-11 


16539 

10 EA 

DJNZ —22 


16541 

“_i 

RET 
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9.1 


introduqao 

Neste capftulo, vamos analisar um superprograma: o CLS ESPIRAL. E um programa 
relativamente longo, mas muito bem estruturado. Precisamos nos preparar par 
compreende-lo. 


FAZENDO PAUSA EM LINGUAGEM DE MAQUINA 

Uma das maneiras de fazer pausa em linguagem de maquina e usar um loop que nao faz 
nada {existem outras maneiras, mas esta e a mais simples). 

Em BASIC isto seria assim: 

1000 FOR T=1 TO 100 
1010 NEXT T 

Estas duas linhas criam uma pausa de aproximadamente 3 segundos. Este esquema pode 
ser usado como sub-rotina. Veja - . 


100 GOSUB 1000 


1000 FOR T=1 TO 100 
1010 NEXT T 
1020 RETURN 


Em ASSEMBLY isto poderia ser feito da seguinte maneira: 


PUSH AF (preserva o valor contido no acumulador) 


LD A,0 ) 

DEC A -*—i f gasta tempo 

JR NZ,— 3 — 

POP AF {recupera o valor contido no 


acumulador) 


A pausa produzida e pequena, mas serve para nossos propositos. Vamos verificar o efeito 
da introdugao da pausa neste exemplo. 


Capriulo 


9 


CLS ESPIRAL 








(19 bytes) 


PROGRAMA 24 


0 REM 19 caracteresquaisquer 


16514 

16517 

16519 

16521 

16522 

16523 

16524 

16526 

16527 

16529 

16530 
16532 


2A 0C 40 

LD HL,(16396) 

3E 80 

LD A, 128 

06 20 

LD B,32 

23 

INC HL 

77 

LD (HL),A 

F5 

PUSH AF 

3E 00 

LD A,0 

3D . 

DEC A 

20 FD 

JR NZ,-3 

FI 

POP AF 

10 F5 

DJNZ -11 

C9 

RET 


Como sugerimos em relagao ao BASIC, tambem podemos fazer isto como utna sub-rotina, 
colocada no final do programa. E, em vez de GOSUB, CALL! Vamos combinar a ideia da 
sub-rotina com urn efeito interessante: andar para tras na tela. 


PROGRAMA 25 


(27 bytes) 


0 REM 27 caracteres quaisquer 


INfCIO 


IMPRIME 


PAUSA 


16514 

2A 

0C 

40 

16517 

3E 

80 


16519 

06 

20 


16521 

11 

D5 

02 

16524 

19 



16525 

77 



16526 

CD 

95 

40 

16529 

2B 



16530 

10 

F9 


16532 

C9 



16533 

F5 



16534 

3E 

00 


16536 

3D 



16537 

20 

FD 


16539 

FI 



16540 

C9 




LD HL,< 16396) 

LD A, 128 
LD B,32 
LD DE,725 
ADD HL,DE 
LD (HL),A 

CALL 16533 (CALL PAUSA) 
DECHL 

DJNZ -7 (DJNZ IMPRIME) 
RET 

PUSH AF 
LD A,0 
DEC A 
JR NZ-3 
POP AF 
RET 


9.3 


EXERCICIOS 

72 Esta simples ideia de pausa cria alguns efeitos espetaculares. Fapa a chamada de uma 

sub-rotina de pausa no local apropriado, e coloque esta sub-rotina no final do 
programa de INVERSAO DE VfDEO. Teste o efeito - e muito bonito - com este 
programa BASIC (nao apague o carregador ASSEMBLY): 
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1000 LIST 

1010 RAND USR 16514 
1020 GOTO 1010 

73 Introduza uma sub-rotina de pausa no final do programa “A ESCADA , alterado 
pro voce para 28 bytes, e chame-a do local {ou locais) apropriado. 0 programa, que 
sempre gerou um bonito efeito, torna-se ainda mais bonito. Descubra o tempo de 
pausa mais adequado (a seu gosto), fazendo POKE direto. 0 tempo de durapao da 
pausa e decrescente, assim: 

0 255 254... 3 2 1 

I TEMPO DECRESCENTE ^ 

tempo maximo tempo minimo 

74 A id§ia de programar chamando sub-rotinas tambem em ASSEMBLY confere 
grande flexibilidade. Sugerimos aqui o esquema completo de um programa que 
pode ser usado como um "CLS HORIZONTAL". O efeito nao e tao bonito quanto 
o do CLS ESPIRAL do fim do capitulo, mas a estruturapao do programa 6 
semelhante, e nos ajudara a entender o CLS ESPIRAL. 

Prepara os codigos hexa deste programa: 

0 REM.caracteres quaisquer 


R6TULOS ENDEREQOS 

C6DIGOS hexa 

mnemOnicos 

INI'CIO 16514 


LD A, 128 



CALLENCHETELA 



LD A,0 



CALLENCHETELA 



CALL PRINT AT (2293) 



RET 

CMPUP TP i A 


LD HL,(D.FILE) 



LD CJinhas 

C A I T A Ml 


INC HL 

OAL 1 A . 


LD B^olunas 

JMOD IMP 


LD (HL),A 



CALL PAUSA 



INCHL 



DJNZ IMPRIME 



DEC C 



JR NZ,SALTA NL 



RET 

DAI 1C A 


PUSH AF 

rnUOn .. 


LD A,0 



DEC A 



JR NZ-3 



POP AF 



RET 
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Teste o CLS HORIZONTAL com o seguinte programa BASIC 

1000 FOR F=0 TO 21 

1010 PRINT AT F,F;"COMPUTADOR" 

1020 NEXT F 

1030 RAND USR 16514 

1040 LIST 

1050 RAND USR 16514 
1060 PRINT “TELA LIMPA" 

Se achar que o efeito esta lento, de um POKE no enderepo correto e... acelere! 

Estude cuidadosamente a estrutura deste programa - ele vai nos permitir entender 
o CLS ESPIRAL. As primeiras 5 instrupoes sao a alma do programa. 


9.4 __ 

MAIS UMA INSTRUCAO 

Quando quertamos saltar posipoes na tela, usSvamos ADD HL,BC ou ADD HL,DE. E se 
quisermos saltar para tras, e possivel? 

Naturalmente a resposta e sim. Usaremos a instrupao SBC, mnemonico de SUSTRACT 
WITH CARRY. Aqui estao os codigos hexa: 

SBC HL,BC ED 42 

SBC HL,DE ED 52 

SBC HL,HL ED 62 

SBC HL,SP ED 72 

Vamosver um exemplo de utilizapao. Meus filhos batizaram este efeito de “ESCALADA . 


PROGRAMA 26 


(36 bytes) 


0 REM 36 caracteres quaisquer 


INI'CIO 


IMPRIME 


PAUSA 


16514 

3E 

97 


16516 

2A 

0C 

40 

16519 

11 

D5 

02 

16522 

19 



16523 

06 

16 


16525 

11 

21 

00 

16528 

77 



16529 

CD 

9E 

40 

16532 

26 



16533 

77 



16534 

CD 

9E 

40 

16537 

ED 

52 


16539 

10 

F3 


16541 

C9 



16542 

F5 



16543 

3E 

00 



LD A,151 
LD HL,{16396) 

LD DE/725 
ADD HL,DE 
LD B,22 
LD DE,33 
LD (HL),A 

CALL 16542 (CALL PAUSA) 
DEC HL 
LD (HL),A 

CALL 16542 (CALL PAUSA) 
SBC HL,DE 

DJNZ-13 (DJNZ IMPRIME) 
RET 

PUSH AF 
LD A,0 
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16545 

3D 

16546 

20 FD 

16548 

FI 

16549 

C9 


DEC A 
JR NZ,-3 
POP AF 
RET 



EXERCtClO 


Este exercicio, alem de fornecer uma bonita rotina, que poder* . em seus 

programas BA^IC, e o que nos falta para o perfeito entend.mento do CLS 


espiral. 

Fa?a urn programa (que tenha no final a 
na tela, mas desta maneira: 


sub-rotina de pausai que coloque uma moldura 



A pausa torna o efeito visivel. 

Depois diminua a paps. fazando . POKE adaquadp. a daaaqbra como o afa,to to max 
bonito para seu gosto. 



0 CLS ESPIRAL 


Bern, estamos chegando ao final. Divirta-se com este programa. 
0 REM 

16514 
16522 
16530 
16538 
16546 
16554 
16562 
16570 
16578 
16586 
16594 
16602 
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Se voce deseja usar apenas o efeito em seus programas BASIC, descubra a pausa mais 
adequada para seu gosto, faga POKE 16599,XX e substitua a instrugao CLS por RAND 
USR 16514, eseu programa BASIC tem um interessante visual... 

Para demonstragao do efeito, ha programas BASIC interessantes. Veja: 

10 FOR F=0 TO 21 

20 PRINT AT F,F;"COMPUTADOR" 

30 NEXT F 

40 RAND USR 16514 

50 PRINT "TELA LI MPA" 

Ou entao este: 

10 LIST 

20 RAND USR 16514 
30 PRINT "TELA LIMPA" 

Este tambem: 

10 FOR F : =255 TO 0 STEP —17 
20 POKE 16599,F 
30 RAND USR 16514 
40 NEXT F 


9.7 __ 

EXERCICIOS 

76 Faga a desmontagem compieta do programa CLS ESPIRAL. Esforce-se por 
entender a finalidade de cada instrugao — voce aprenderS muito. Introduza rotulos: 
isto vai ajudar a sua compreensao. Siga o programa como se voce fosse o 
computador e descubra o que tem que ser feito apds cada instrugao — e voce 
entendera... Esforce-se: sem esforoo nada se obtem . 

77 Que instrugao BASIC deve ser dada em lugarde RAND USR 16514 para que o 

CLS ESPIRAL funcione limpando a tela apenas imprimindo os espagos? Estqde a 
desmontagem que voce fez, e a resposta e facil. 

9.8 __ 

PALAVRAS FINAIS 

Viemos juntos ate aqui, e e hora de nos separarmos. Espero que voce tenha aprendido 
muito. Mas tambem que tenha se divertido muito. 

Anatole France, em Le Crime de Syivestre Bonnard (1881) disse que "Nao e divertindo-se 
que uma pessoa aprende". Eu creio que e apenas divertindo-se que uma pessoa pode 
aprender. 

£ incrfvel o quanto fizemos com tao poucas instrugoes. Ha tantas mais... 

Talvez nos encontremos, eu, voce e a linguagem de maquina, no volume 2 deste livro. 

Ate la! 
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RESPOSTAS DOS EXERCICIOS 


72 0 REM 30 caracteres quaisquer 


rOtulo 

ENDEREQO 

CCDIGOS HEXA 

mnemOnicos 

1N f CIO 

16514 

2A 0C 40 

LD HL,( 16396) 


16517 

0E 16 

LD C,22 

SALTA NL 

16519 

23 

INC HL 


16520 

06 20 

LD B,32 

PEEK 

16522 

7E 

LD A,(HL) 


16523 

C6 80 

ADD A,128 


16525 

77 

LD (HL),A 


16526 

CD 98 40 

CALL 16536 (CALL PAUSA) 


16529 

23 

INC HL 


16530 

10 F6 

DJNZ -10 (DJNZ PEEK) 


16532 

0D 

DEC C 


16533 

20 F0 

JR NZ-16 (JR NZ,SALTA NL) 


16535 

C9 

RET 

PAUSA 

16536 

F5 

PUSH AF 


16537 

3E 00 

LD A,0 


16539 

3D 

DEC A 


16540 

20 FD 

JR NZ,—3 


16542 

FI 

POP AF 


16543 

C9 

RET 


73 0 REM 40 caracteres quaisquer 


rOtulo 

ENDEREQO 

C6DIGOS 1 

INICIO 

16514 

2A 0C 


16517 

06 16 


16519 

0E 16 

SALTA NL 

16521 

23 


16522 

51 


16523 

IE 20 

POKE 1 

16525 

36 17 


16527 

CD A4 


16530 

23 


16531 

ID 


16532 

15 


16533 

20 F6 

POKE 2 

16535 

36 97 


16537 

CD A4 


16540 

23 


16541 

ID 


16542 

20 F7 


40 


40 


40 


mnemOnicos 


LD HL,{16396) 

LD B,22 
LD C,22 
INCHL 
LD D,C 
LD E,32 
LD (HL),23 

CALL 16548 (CALL PAUSA) 

INCHL 

DECE 

DEC D 

JRNZ,-10(JRNZ,POKE1) 

LD (HL),151 

CALL 16548 (CAISFPAUSA) 

INCHL 

DECE 

JR NZ,-9 (JR NZ r POKE 2) 
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16544 

0D 

DEC C 


16545 

10 E6 

DJNZ -26 (DJNZ SALTA NL) 


16547 

C9 

RET 

; PAUSA 

16548 

3E 00 

LD A,0 

1 

i 

16550 

3D 

DEC A 

! 

j 

16551 

20 FD 

JR NZ-3 

! 

1_i 

16553 

C9 

RET ! 


Duas observances: * 

1 ^) Como o acumufador n§o era usado no programa, nao havia a necessidade de 
preserva-lo e depois recupera-lo com PUSH AF e POP AF. 

2?) Se desejar variar o tempo de pausa f digite (modo direto) POKE 16549,192 
(por exemplo). 


74 Vejamos o CLS HORIZONTAL 
0 REM 41 caracteres quaisquer 


rOtulos 

ENDEREQOS 

CODIGOSHEXA 

mnemOnicos 

IN (CIO 

16514 

3E 

80 


LD A, 128 


16516 

CD 

90 

40 

CALL (CALL ENCHE TELA) 


16519 

3E 

00 


LD A,0 


16521 

CD 

90 

40 

CALL 16528 (CALL ENCHE TELA) 


16524 

CD 

F5 

08 

CALL 2293 (CALL PRINT AT) 


16527 

C9 



RET 

ENCHETELA 

16528 

2A 

0C 

40 

LD HL,(16396) 


16531 

0E 

16 


LD C,22 

SALTA NL 

16533 

23 



INCHL 


16534 

06 

20 


LD B,32 

IMPRIME 

16536 

77 



LD (HL),A 


16537 

CD 

AE 

40 

CALL 16547 (CALL PAUSA) 


16540 

23 



INC HL 


16541 

10 

F9 


DJNZ-7 (DJNZ IMPRIME) 


16543 

0D 



DEC C 


16544 

20 

F3 


JR NZ -13 (JRNZ, SALTA NL) 


16546 

C9 



RET 

PAUSA 

16547 

F5 



PUSH AF 


16548 

3E 

00 


LD A,0 


16550 

3D 



DEC A 


16551 

20 

FD 


JR NZ-3 


16553 

FI 



POP AF 


16554 

C9 



RET 


Para acelerar, digite por exemplo (modo direto) POKE 16549,128, 
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75 0 REM 54 caracteres quaisquer 


INfCIO 

16514 

3E 

97 


LD A,151 


16516 

2A 

0C 

40 

LD HL,( 16396) 


16519 

11 

21 

00 

LD DE,33 


16522 

06 

20 


LD 8,32 

LOOP 1 

16524 

23 



INC HL 


16525 

77 



LD (HL),A 


16526 

CD 

B0 

40 

CALL 16560 (CALL PAUSA) 


16529 

10 

F9 


DJNZ-7 (DJNZ LOOP 1) 


16531 

06 

15 


LD B,21 

LOOP 2 

16533 

19 



ADD HL,DE 


16534 

77 



LD <HL),A 


16535 

CD 

B0 

40 

CALL 16560 (CALL PAUSA) 


16538 

10 

F9 


DJNZ-7 (DJNZ LOOP 1) 


16540 

06 

IF 


LD B,31 

LOOP 3 

16542 

2B 



DECHL 


16543 

77 



LD (HL),A 


16544 

CD 

B0 

40 

CALL 16560 (CALL PAUSA) 


16547 

10 

F9 


DJNZ -7 (DJNZ LOOP 3) 


16549 

06 

14 


LD B,20 

LOOP 4 

16551 

ED 

52 


SBC HL,DE 


16553 

77 



LD (HL),A 


16554 

CD 

B0 

40 

CALL 16560 (CALL PAUSA) 


16557 

10 

F8 


DJNZ -8 


16559 

C9 



RET • 

PAUSA 

16560 

F5 



PUSH AF 


16561 

3E 

00 


LD A,0 


16563 

3D 



DEC A 


16564 

20 

FD 


JR NZ,-3 


16566 

FI 



POP AF 


16567 

C9 



RET 


Para reduzir a pausa, digite por exemplo (modo direto) POKE 16562,128. 


76 0 REM 91 caracteres quaisquer 


rCtulos 

ENDEREQOS 

— 

cOdigos hexa 

mnemOnicos ; 

INfCIO 

16514 

3E 

80 


LD A, 128 


16516 

CD 

93 

40 

CALL 16531 (CALL TELA) 


16519 ' 

3E 

00 


LD A,0 


16521 

CD 

93 

40 

CALL 16531 (CALL TELA) 


16524 

01 

00 

00 

LD BC,0 


16527 

CD 

F5 

08 

CALL 2293 (CALL PR INT AT 0,0;) 


16530 

C9 



RET 

TELA 

16531 1 

2A 

0C 

40 

LD HL,( 16396) 


16534 | 

0E 

15 


LD C,21 
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16536 

06 20 

LD B,32 

COMEQO 

16538 

50 

LD D,B 

LOOP 1 

16539 

23 

INCHL 


16540 

77 

LD (HL),A 


16541 

CD D5 40 

CALL 16597 (CALL PAUSA) 


16544 

15 

DEC D 


16545 

20 F8 

JR NZ,-8 (JR NZ,LOOP 1) 


46547 

05 

DEC B 


16548 

59 

LD E,C 


16549 

C5 

PUSH BC 


16550 

01 21 00 

LD BC,33 

LOOP 2 

16553 

09 

ADD HL,BC 


16554 

77 

LD (HL),A 


16555 

CD D5 40 

CALL 16597 (CALL kauSA) 


16558 

ID 

DEC E 


16559 

20 F8 

JR NZ,—8 (JR NZ,LOOP 2) 


16561 

Cl 

POP BC 


16562 

0D 

DEC C 


16563 

50 

LD D,B 

LOOP 3 

16564 

2B 

DECHL 


16565 

77 

LD (HL),A 


16566 

CD D5 40 

CALL 16597 (CALL PAUSA) 


16569 

15 

DEC D 


16570 

20 F8 

JR NZ,—8 (JR NZ.LOOP 3) 


16572 

5F 

LD E,A 


16573 

78 

LD A,B 


16574 

FE 0B 

CP 11 


16576 

C8 

RETZ 


16577 

7B 

LD A,E 


16578 

05 

DEC B 


16579 

59 

LD E,C 


16580 

C5 

PUSH BC 


16581 

01 21 00 

LD BC,33 

LOOP 4 

16584 

ED 42 

SBC HL,BC 


16586 

77 

LD (HL),A 


16587 

CD D5 40 

CALL 16597 (CALL PAUSA) 


16590 

ID 

DECE 


16591 

20 F7 

JR NZ,—9 (JR NZ,LOOP 4) 


16593 

Cl 

POP BC 


16594 

0D 

DEC C 


16595 

18 C5 

JR,-59 (JR COMEQO) 

PAUSA 

16597 

F5 

PUSH AF 


16598 

3E 00 

LD A,0 


16600 

3D 

DEC A 


16601 

20 FD 

JR NZ,—3 


16603 

FI 

POP AF 


16604 

If!_ 

RET 
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Umaobservagao sobre a instrugao do enderego 16576. O RETURN (RET) ao qual 
estamos acostumados e o RETURN incondicional. Tambem ha RETURN 
condicional, vejamos: 


INSTRUQAO 

SIGNIFICADO 

CODIGO HEXA 

RET Z 

PE7TJRN IF ZERO 

C8 

RET NZ 

RETURN IF NOT ZERO 

C 0 

RETC 

PE7TJRN IF CARRY 

D8 

RET NC 

PE7URN IF /VOT CARRY 

D0 

RET PE 

PE7TJRN IF PARITY IS EVEN 

E8 

RET PO 

RETURN IF PARITY IS ODD 

E0 

RET M 

PE7TJRN IF MINUS 

F8 

RET P 

PE7URN IF PLUS 

F0 


77 Basta fazer como iinha de programa RAND USR 16519. (Como comando direto e 
inutil - embora funcione - pois a execugao de comandos diretos e precedida de 
um CLS.) Em 16519 entramos no programa em LD A,0. 

Experimente: 

1000 LIST 

1010 RAND USR 16519 
1020 GOTO1000 

O efeito de apagar a tela em espiral e interessante, e pode ser usado em programas 
BASIC, jogos etc... 
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A UCP de um microcomputador e constituida de um microprocessador. 

0 ZX81 da Sinclair, benrt cortio todos os compatfvels brasileiros (TK82, 83 e 85; CP-200; 
RINGO; AS-1000), baseia-se no microprocessador Z-80, da Zilog. 

Comercializado desde 1976, o Z-80 integra 8000 transistores e e uma ampiia<?ao do 8080 
da Intel :aceita todas as instrupoes do 8080 e mais algumas. 


Ell 
E12 
E13 
E14 
El 5 

REL6GIO 

X4 

X3 

X5 

X6 

TENSAO 5V 
X2 
X7 
XO 
XI 

INTER RUPpAO 

INTERRUPQAO 

HALT 

REQUISigAO AC. MEM. 

OPERACAO E/S 



E10 

E9 

E8 

E7 

E6 

£5 

E4 

E3 

E2 

El 

EO 

TERRA 

SINAL 


I^CICLO MAQUINA 
INICIALIZAgAO 
REQ. BARRAMENTO 
SINCRONIZAgAO 
FIM REQ. BARRAMENTO 
SELEpAO GRAVAgAO 
SELEpAo LEITURA 


FIG. 1 — Esquema das conexoes externas do microprocessador Z-80. O barramento de enderepos est4 
representado pela letra E {E0, El,..., E l5 ) e o barramento de dados pela letra X (X0, XI, 

.X7}. 


Apendice 


O MICROPROCESSADOR Z-80 



E fabricado com tecnologia N.MOS (MOS = metal oxide semiconductors); N -transistores 
de canal N). Alimenta-se com 5 volts. Integra uma pastilha com 40 conexoescom o 
exterior, e pode gerir uma memoria de ate 64 kbytes. 

A principal caracter.'stica do Z-80, que o destaca dos demais, e o fato de dispor de varies 
registradores duplicados (alternatives), com os quais se consegue grande versatilidade. 
Entre os registradores duplicados, merecem destaque especialos conjuntos de registrado¬ 
res gerais B, C, D, E, H e Le seus alternates B', C', O', E , H e l, cada urn de 8 , 

que podem ser usados aos pares, formando registradores de 16 bits. BC, DE, HL, 

e HL'. 


Os 22 registradores internos do Z-80 sao os seguintes: 


2 registradores acumuladores, A e A, de 8 bits. 

2 registradores de estado, F e F', de 8 bits. 

12 registradores gerais: B e B', C e C', D e D', E e E , H e H , L e , e is. 
1 apontador da piiha, SP (stack pointer), de 16 bits. 

1 contador de programa, PC (program counter), de 16 bits. 

2 registradores indexados, IX e IY, de 16 bits. 

1 registrador reavivador (refresh), R, de 8 bits. 

1 registrador de interrupgao, I, de 8 bits. 


Algumas observagbes: 


1?) O acumulador A pode se juntar ao registrador de estado F, obtendo-iie o 

registrador de 16 bits AF. A mesma coisa e valida para A e F , obtendo-se AF . 



3 a> ix e IY sao usados para facilitar alguns tipos de enderepamento; mas ha 
algumas peculiaridades nos micros Sinclair: 

• _ IX e utilizado pelo hardware de SLOW, logo vale o mesmo que dissemos na 

- IVa^nt^paraTendereoo 4000h <16384d), ou seja, o enderepo inicial das 
variaveis do sistema; 

4f) 0 registrador I (de interruppao) deve ter o valor 1Eh (30d> retornando ao 
BASIC. 


5?) Podemos imaginar conforme Fig. 2. os registradores inter ns do Z-80. 

6?) 0 registrador de estado (F) merece especial atenpao. Seis de seus oito bits 
fornecem informapoes importantes sobre as condipoes internas do_ 
microprocessador. 0 esquema da Fig. 3 auxiliary nossa compreensao. 
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CONJUNTO PRINCIPAL: 



CONJUNTO ALTERNATIVO: 



FIG. 2 — O duplo conjunto de registradores intern os 6 uma das caracteri'sticas bSsicas do 
microprocessador Z-80. 


BIT 



CARRY FLAG- 
ADD/SUBTRACT FLAG 
PARJTY/OVERFLOW FLAG 
NAO USADO 
HALF CARRY FLAG 
NAO USADO 
ZERO FLAG 
SIGN FLAG 


FIG. 3 — O registrador F do microprocessador Z-80 $ bastante diferente dos registradores de estado 
de outros microprocessadores. 
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Vamos estudar cada um dos bits. 

- BIT 0 (CARRY FLAG) - 


controla se houve ou nao transporte (carry) 
Houve transporte 1 
Nao houve-0 


- BIT 1 (ADD/SUBTRACT FLAG) - 


controla se houve soma ou subtrapao 
Houve subtrapao— 1 
Houve soma--►0 


— BIT 2 (PARITY/OVERFLOW FLAG) 


em operapoes logicas, controla a 
paridade, ou seja, se o nurnero de 0 
(ou 1) do conteudo do registrador 
(expresso em binario) e par ou impar. 
Paridade par —-1 
Paridade fnripar —0 
— em operapoes aritmeticas, controla 
o transbordamento (overflow) 
Houve transbordamento —1 

Nao houve-“ 


- BIT 3 — nao e usado. 

- BIT 4 (HALF CARRY FLAG)- 


controla se houve transbordamento ao somar 
a primeira metade do byte; esta flag e usada 
internamente pelo microprocessador, e nao 
esta a disposipao (diretamente) do 
programador. 

Houve transporte — 1 
Nao houve --* 0 


— BIT 5 — nao 6 usado. 

- BIT 6 (ZERO FLAG) - 


controla se o conteudo do registrador e ou nao zero; e 
utilissimo verificar seu estado apos operapoes 
aritmeticas. CUIDADO'. A flag Z nao e afetada por 
operapoes com pares de registradores, 

Conteudo zero ——-1 
Conteudo nao zero —0 


controla o estado do sinal. 

Nurnero negativo *• 1 
Nurnero positivo —* 0 

0 microprocessadorZ M 4. em nossaopiniio, om.lho, 

8 bits disponivel no mercado. Orgulhe-se de seu pequenmo Sine 
de contas, eie tem um Z-80! 


- BIT 7 (SIGN FLAG) - 


7?) 
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cOdigo decimal 

c6digo hexadecimal 

CARACTERE 

0 

00 

Espapo 

1 

01 

pr~| 

2 

02 

[Hj 

3 

03 

H 

4 

04 

EG 

5 

05 

M3 

6 

06 

0 

7 

07 

m 

8 

08 


9 

09 

rn 

l- . a?l 

10 

0A 


11 

0B 

ft 

12 

0C 

l 

13 

0D 

$ 

14 

0E 


15 

0F 

7 

16 

10 

{ 

17 

11 

) 

18 

12 

> 

19 

13 

< 

20 

14 

= 

21 

15 

+ 

22 

16 

__ 

23 

17 

* 

24 

18 

/ 

25 

19 


26 

1A 


27 

IB 


28 

1C 

0 

29 

ID 

1 

30 

IE 

2 

31 

iF 

3 . 

32 

2 a 

4 

33 

21 

5 

34 

2: i 

6 

35 

23 

7 

36 

24 

8 

37 

25 

9 

38 

26 

A 
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O CONJUNTO DE CARACTERES 



C6DIG0 DECIMAL 

c<5digo hexadecimal 

CAR ACTE RE 

39 

27 

B 

40 

28 

C 

41 

29 

D 

42 

2A 

E 

43 

2B 

F 

44 

2C 

G 

45 

2D 

H 

46 

2E 

1 

47 

2F 

J 

48 

30 

K 

49 

31 

L 

50 

32 

M 

51 

33 

N 

52 

34 

0 

53 

35 

P 

54 

36 

Q 

55 

37 

R 

56 

38 

S 

57 

39 

T 

58 

3 A 

U 

59 

3B 

V 

60 

3C 

w ! 

61 

3D 

X 

62 

3E 

V 

63 

3F 

z 

64 

40 

RND 

65 

41 

INKEYS 

66 

42 

PI 

128 

80 

m 

129 

81 

Ql 

130 

82 

B 

131 

83 

B 

132 

84 

fli 

133 

85 

cm 

134 

86 

s 

135 

87 

Ljj 

136 

137 

88 

89 

is 

138 

8A 

m 

139 

8B 

B 

140 

8C 

Q 

141 

8D 

B 

142 

8E 

B 

143 

8F 

a 

144 

90 

n 
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CflDIGO decimal 

C6DIG0 hexadecimal 

CARACTERE 

145 

91 

a 

146 

92 


147 

93 

ts 

148 

94 

B 

149 

95 

■9 

150 

96 

B 

151 

97 

B 

152 

98 

n 

153 

99 

B 

154 

9A 

B 

155 

9B 

— 

156 

9C 

O 

157 

9D 

a 

158 

9E 

B 

159 

9F 

B 

160 

A0 

B 

161 

A1 

B 

162 

A2 

B 

163 

A3 

B 

164 

A4 

m 

165 

A5 

El 

166 

A6 

B 

167 

A7 

B 

168 

A8 

B 

169 

A9 

■o 

170 

AA 

M3 

171 

AB 

B 

172 

AC 

B 

173 

AD 

EH 

174 

AE 

B 

175 

AF 

a 

*176 

B0 

ra 

171 

B1 

a 

178 

B2 

ES3 

179 

B3 

B 

180 

B4 

EM 

181 

B5 

D 

182, 

B6 

El 

183 

B7 

■a 

18| 

B8 

m 

185- 

B9 

a 

18$ 

BA 

B 

18f 

BB 

B 

18$ 

BC 

KM 

18$ 

,&D 

B 
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cOdigo decimal 

cCdigo HEXADECIMAL 

CARACTERE 

190 

BE 

D 

191 

BF 

B 

192 

C0 

tr ft 

193 

Cl 

AT 

194 

C2 

TAB 

196 

C4 

CODE 

197 

C5 

VAL 

198 

C6 

LEN 

199 

C7 

SIN 

200 

C8 

COS 

201 

C9 

TAN 

202 

CA 

ASN 

203 

CB 

ACS 

204 

CC 

ATN 

205 

CD 

LN 

206 

CE 

EXP 

207 

CF 

INT 

208 

D0 

SOR 

209 

D1 

SGN 

210 

D2 

ABS 

211 

D3 

PEEK 

212 

D4 

USR 

213 

D5 

STR$ 

214 

D6 

CHR$ 

215 

D7 

NOT 

216 

D8 

* * 

217 

D9 

OR 

218 

DA 

AND 

219 

DB 

< = 

220 

DC 

> = 

221 

DD 

<> 

222 

DE 

THEN 

223 

DF 

TO 

224 

E0 

STEP 

225 

El 

LPRINT 

226 

E2 

LLIST 

227 

E3 

STOP 

228 

E4 

SLOW 

229 

E5 

FAST 

230 

E6 

NEW 

231 

E7 

SCROLL 

232 

E8 

CONT 

233 

E9 

DIM 

234 

EA 

REM 

235 

EB 

FOR 
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CODIGO DECIMAL 

c6digo hexadecimal 

CARACTERE 

236 

EC 

GOTO 

237 

ED 

GOSUB 

238 

EE 

INPUT 

239 

EF 

LOAD 

240 

F0 

LIST 

241 

X F1 

LET 

242 

F2 

PAUSE 

243 

F3 

NEXT 

244 

F4 

POKE 

245 

F5 

PRINT 

246 

F6 

PLOT 

247 

F7 

RUN 

248 

F8 

SAVE 

249 1 

F9 

RAND 

250 

FA 

IF 

251 

FB 

CLS 

252 

FC 

UNPLOT 

253 

FD 

CLEAR 

254 

FE ; 

RETURN 

255 

FF ; 

COPY 


A Sinclair usa ainda os seguintes "caracteres"; eles (obviamente) nao sao imprimiveis e 
aparecem "impresses" como ?. Todos os eddigos nao-usados (de 67 a 111, de 122 a 125, 
e ainda 195) sao tambem "impressos" como ?. 


112 

70 

cursor para cima 

113 

71 

cursor para baixo 

114 

72 

cursor para esquerda 

115 

73 

cursor para direita 

116 

74 

GRAPHICS 

117 

75 

EDIT 

118 

76 

NEW LINE (ENTER) 

119 

77 

RUBOUT (DELETE) 

120 

78 

MODO 

121 

79 

- FUNCTION 

126 

7E 

NUMERO 

127 

?f 

CURSOR 
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III 

Dl 

■1 

2 

3 

III 

Bl 

Bl 

Bl 

Vi 

Bl 

Bl 

Bl 

Bl 

c 

D 

E 

F 

0 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

Bl 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

1 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

B 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 


96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

in 

1 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

G 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

D 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

A 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

B 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

C 

192 

193 

194 

195 

196 

197 

198 

199 

CN 

201 

202 

203 

204 

205 

206 

207 

D 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

E 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

F 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 


Exemplosde utilizapao: 201 = C9 
118 = 76 
58 = 3A 
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ENDEREQO 

N? DE 

NOME 

FUNQAO 

DECIMAL 

HEXA 

BYTES 

SINCLAIR 

16384 

4000 

1 

ERR.NR 

C6digo de denotagao —1 

16385 

4001 

1 

FLAGS 

Varias flags para controlar o sistema 
BASIC 

16386 

4002 

2 

ERR.SP 

Ponteiro da piiha apos uma GOSUB 

16388 

4004 

2 

RAMTOP 

Enderego do topo da RAM existente' 
ou alterada peio usuSrio 

16390 

4006 

1 

MODE 

Especifica o cursor que esta sendo 
usado na linha atual 

16391 

4007 

2 

PPC 

Numero da linha sendo executada 

16393 

4009 

1 

VERSN 

Ponto inicial da RAM a ser gravado a 
partirde SAVE 

16394 

400A 

2 

E.PPC 

Numero da linha onde esta o cursor 

16396 

400C 

2 

D.FILE 

Ponteiro do arquivo de imagem 

16398 

400E 

2 

DF.CC 

Enderego da posigao de PRINT no 
arquivo de imagem 

16400 

4010 

2 

VARS 

Ponteiro da area das varteveis 

16402 

4012 

2 

DEST 

Enderego da variavel em atribuigao 

16404 

4014 

2 

E.LINE 

Ponteiro para Srea de trabalho 

16406 

4016 

2 

CH.ADD 

Enderego do proximo caractere a ser 
i nterpretado 

16408 

4018 

2 

X.PTR 

Enderego do caractere que precede o 
cursor de erro de sintaxe 

16410 

401A 

2 

STKBOT 

Ponteiro do im'cio da piiha do 
caiculador 

16412 

401C 

2 

STKEND 

Ponteiro do final da piiha do caiculador 

16414 

401E 

1 

BERG 

Usado pelo caiculador em ponto 
flutuante 

16415 

401F 

2 

MEM 

Ponteiro da £rea da memoria onde os 
calculos sao feitos 

16417 

4021 

1 


Nao e usado 

16418 

4022 

1 

DFSZ 

Numero de linhas na parte inferior da 
tela 

16419 

4023 

2 

S.TOP 

Numero da linha superior da tela ao 
iistar 

16421 

4025 

2 

LAST.K 

Valor da ultima tecla pressionada 

16423 

4027 

1 

DB.ST 

Estado de debounce do teclado 

16424 

4028 

1 

MARGIN 

Numero de linhas em branco acima ou 
abaixo da imagem 
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AS VARlAVEIS do sistema 




ENDEREQO 

N? DE 

NOME 

FUNpAO 

DECIMAL 

HEX A 

BYTES 

SINCLAIR 

16425 

4029 

2 

NXTLIN 

Enderepo da proxima linha do 
programa a ser executada 

16427 

402B 

2 

OLDPPC 

Numero da linha para a qual CONT 
salta 

16429 

402D 

1 

FLAGX 

Varias flags 

16430 

402 E 

2 

STRLEN 

Informapoes sobre atribuipao de strings 

' 16432 

4030 

2 

T.ADDR 

Ponteiro para tabela de sintaxe 

16434 

4032 

2 

SEED 

"Semente" para o gerador de numeros 
randomicos 

16436 

4034 

2 

FRAMES 

Contador de quadros apresentados na 
tela 

16438 

4036 

2 

COORDS 

Coordenadas do ultimo ponto plotado 

16440 

4038 

1 

PR.CC 

Byte menos significativo da posipao de 
LPRINT; o byte mais significativo e 
40h 

16441 

4039 

2 

S.POSN 

Numero da coluna e da linha, 
respectivamente, para a posipao de 
PRINT 

16443 

403B 

' 1 

CDFLAG 

Flags relativas a SLOW e FAST 

16444 

403C 

33 

PRBUFF 

Buffer da impressora, 33?caractere 

6 um NEW LINE 

16477 

405 D 

30 

MEMBOT 

Area que pode ser usada como memoria 
do calculador 

16507 

407 B 

2 


Nao sao usados 
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SINCLAIR 

CP-200 

TK85 

ERR.NR 

ERRO-1 

CODR 

FLAGS 

FLAGS 

BAND 

ERR.SP 

RETGSB 

ENSP 

RAMTOP 

MEMTOP 

RTP 

MODE 

MODO 

MODO 

PPC 


CPB 

VERSN 

VERSAO 

VERSN 

E.PPC 

NUMLI 

LPC 

D.FILE 

MAPTELA 

DFILE 

DF.CC 


POSPR 

VARS 

VARS 

VARS 

DEST 

DEST 

DEST 

E.LINE 

LIDIGIT 

ELINE ' 

CH.ADD 

PROX-CAR 

ENCAR 

X.PTR 

XPTR 

ENSX 

STKBOT 

STKCOM 

PILFUN 

STKEND 

STKFIM 

PILFIM 

BERG 

REGIB 

CALREG 

MEM 

MEM 

MEM 

nao-usado 

nao-usado 

nao-usado 

DF.SZ 

DF-SZ 

DFSZ 

S.TOP 

PROGTOP 

LTOP 

LAST.K 

ULTIMAT 

ULTK 

DB.ST 

MARGIN 

MARGEN 

HARG 

NXTLIN 

PRXLIN 

PXLN 

OLD PPC 

LINCONT 

VCPB 

FLAGX 

FLAGX 

BANDX 

STRLEN 

COMSTR 

LENCA 

T.ADDR 

ENDSTX 

SXEN 

SEED 

SEED 

SEMT 

FRAMES 

FRAMES 

QUAD 

COORDS 

COORDX 

CORDX 


COORDY 

CORDY 

PR.CC 

LPBYTE 

PR-CC 

S.POSN 

COLUNA 

COLPR 


LINHA 

LINPR 

CDFLAG 

FLAGCD 

BANCO 

PRBUFF 

BUFIMP 

PRBUFF 

MEMBOT 

MEMBOT 

MEMBO 

nao-usado 

nao-usado 

nao-usado 
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EQUIVALENCIA DE NOMENCLATURA 
DAS VARlAVEIS DO SISTEMA 



Voce pode usar as variaveis do sistema para obter informagoes uteis. Vamos ver neste 
apendice aigumas possibilidades. 

Mas... o importante nao e apenas saber que tal "formula", tipo PR I NT PEE K 
nao-sei* la-o-que, faz tal ou qua! coisa, mas $im entender o que sfc esta fazendo. 

Para isto e necessarlo entender a organizagao da RAM do nosso micro. A figura abaixo 
nos ajudara. 


16384 -^ 

16509-- 

D. FILE-- 

VARS -- 

E. LINE-- 

STKBOT-- 

STKEND -- 

SP -^ 

ERR.SP-^ 

RAMTOP-- 


VARIAVEIS DO SISTEMA 


PROGRAMA BASIC 


ARQUIVO DE IMAGEM 
VARIAVEIS 


LINHA SENDO DIGITADA + ESPAQO DE TRABALHO 
PILHA DO CALCULADOR 


RESERVA 


PILHA DO MICROPROCESSADOR Z-80 


PILHA GOSUB 


FIG. 1 — A organizapSo da armazenagem na memdria RAM. 


Como voce pode perceber, so ha dois enderegos fixos: o de inicio das variaveis do sistema, 
que e o proprio inicio da RAM, 16384 (4000h); e o do im'cio do programa BASIC, 16509 
(407D). Todos os outros enderegos, ate o final, sao variaveis. Eles sao apontados pelas 
variaveis do sistema indicadas na figura. 

Para obter o enderego apontado pela variavel do sistema, basta fazer o seguinte: 

— procurar o enderego decimal da variavel do sistema na tabela do apendice 5. 

exemplo: D.FILE. 16396 

— chamando a este enderego de E, o enderego apontado pela variavel do sistema e 
dado por 

PEEK E+256*PEEK (E + 1) 


Apendice 


USANDO AS VARIAVEIS DO SISTEMA 




exemplo: logo, para obter o enderego apontado por D.FILE, basta fazer 
PRINT PEEK 16396 + 256*PEEK 16397 
Vamos entao as sub-rotinas de servigo. 

1?) CAPACIDADE DE MEMORIA RAM INSTALADA 

Eis af uma coisa util de se verificar, principalmente quando $e u$a expansao de memoria. 

Observando a Fig. 1, vemos que a RAM vai do enderego 16384 ate o enderego apontado 
por RAMTOP. 

Logo, para obter o numero de bytes de memoria RAM instalada, basta fazer 
PRINT PEEK 16388 + 256*PEEK 16389-16384 


Digite isto como um comando direto e NEW LINE. 

Se voce dividir o numero obtido por 1024, obtera quantos K de memoria tern o seu 
micro, poi$ o 1 Kbyte - 1024 bytes. Esta observagao tambem e valida para as outras 
sub-rotinas de servigo deste apendice. 

2?) NUMERO DE BYTES OCUPADOSPELO PROGRAMA BASIC 

Vimos na Fig. 1 que o programa BASIC vai do enderego 16509 ate o enderego apontado 
por D.FILE. 

Logo, para obter o numero de bytes ocupados pelo seu programa BASIC, faga 


PRINT PEEK 16396+256*PEEK 16397-16509 


3?) NUMERO TOTAL DE BYTES OCUPADOS PELO PROGRAMA BASIC 

Seu programa BASIC gera um arquivo de imagem, e utiliza variaveis. Assim, ele na 
verdade vai de 16509 ate o enderego apontado por E.LINE (observe a Fig. 1). 

Logo, para obter o numero de bytes ocupado pelo programa, incluindo as variaveis e o 
arquivo de imagem, faga 

PRINT PEEK 16404+256*PEEK 16405-16509 


4?) NOMERO DE BYTES DE MEM6RIA DISPONlVEL 

Se voce for digitar um programa BASIC particularmente extenso, isto tambem e 
utilissimo de se saber, 

A memoria RAM, nao ocupada peio seu programa BASIC, vai do enderego apontado por 
E.LINE ate o enderego apontado por RAMTOP. 
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Assim, obtenha o numero de bytes "livres" fazendo 


PRINT (PEEK 16388+ 256*PEEK 16389) - (PEEK 16404 + 256*PEEK 16405) 


Uma observapao final: qualquer uma das quatro sub-rotinas apresentadas pode ser 
transfer mad a em um pequeno programa Assembly. Como exemplo, aqui esta a primeira 
delas (quantos K de memorial. 


0 REM 

13 caracteres 

quaisquer 

16514 

11 * 


16515 

00 > 

LD DE, 16384 

16516 

40 ’ 


16517 

2A % 


16518 

04 > 

LD HL,( 16388) 

16519 

40 ’ 


16520 

C6 > 

ADD A,0 

16521 

00 f 

16522 

ED » 

SBC HL,DE 

16523 

52 ' 

16524 

44 

LD B,H 

16525 

4D 

LD C,L 

16526 

C9 

RET 


Para rodar o programa, digite (modo direto): 
PRINT (USR 16514)/1024; "_K". 
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(Estas pa lavras sao usadas como INSTRUQOES, logo nao podem ser usadas como 

rOtulos.) 


ADC 

EX 

NEG 

RLCA 

ADD 

EXX 

NOP 

RLD 

AND 

HALT 

OR 

RR 

BIT 

IM 

OTDR 

RRA 

CALL 

IN 

OTIR 

RRC 

CCF 

INC 

OUT 

RRCA 

CP 

IND 

OUTD 

RRD 

CPD 

INDR 

OUT! 

RST 

CPDR 

INI 

POP 

SBC 

CPI 

INIR 

PUSH 

SCF 

CPIR 

JP 

RES . 

SET 

CPL 

JR 

RET 

SLA 

DAA 

LD 

RETI 

SRA 

DEC 

LDD 

RETN 

SRL 

Dl 

LDDR 

RL 

SUB 

DJNZ 

LDI 

RLA 

XOR 

El 

LDIR 

RLC 
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PALAVRAS RESERVADAS 




cOdigo 

DE MAQUINA 

COMANDO 

00 

NOP 

01 

LD BC,NN 

02 

LD (BC),A 

03 

INC BC 

04 

INC B 

05 

DEC B 

06 

LD B,N 

07 

RLCA 

08 

EX AF,AF' 

09 

ADD HL,BC 

0A 

LD A,(BC) 

0B 

DEC BC 

0C 

INC C 

0D 

DEC C 

0E 

LD C,N 

0F 

RRCA 

10 

DJNZ D!S 

11 

LD DE,NN 

12 

LD (DE),A 

13 

INC DE 

14 

INC D 

15 

DEC D 

16 

LD D,N 

17 

RLA 

18 

JR DIS 

19 

ADD HL,DE 

1A 

LD A,{DE) 

IB 

DEC DE 

1C 

INC E 

ID 

DEC E 

IE 

LD E,N 

IF 

RRA 

20 

JR NZ,DIS 

21 

LD HL,NN 

22 

LD (NN).HL 

23 

INCHL 

24 

INCH 

25 

DEC H 

26 

LD H,N 

27 

DAA 


cOdigo 

DE MAQUINA 

COMANDO 

28 

JR Z,DIS 

29 

ADD HL,HL 

2A 

LD HL f (NN) 

2B 

DEC HL 

2C 

INC L 

2D 

DEC L 

2E 

LD L,N 

2F 

CPL 

30 

JR NC,D!S 

31 

LD SP,NN 

32 

LD (NN),A 

33 

INC SP 

34 

INC (HL) 

35 

DEC (HL) 

36 

LD (HL),N 

37 

SCF 

38 

JR C,DiS 

39 

ADD HL,SP 

3A 

LD A,(NN) 

3B 

DEC SP 

3C 

INCA 

3D 

DEC A 

3E 

LD A,N 

3F 

CCF 

40 

LD B,B 

41 

LD B,C 

42 

LD B,D 

43 

LD B,E 

44 

LD B,H 

45 

LD B # L 

46 

LD B,(HL) 

47 

LD B,A 

48 

LD C,B 

49 

LD C,C 

4A 

LD C,D 

4B 

LD C,E 

4C 

LD C f H 

4D 

LD C,L 

4E 

LD C # (H L) 

4F 

LD C,A 
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O CONJUNTO DE INSTRUQOES 
DO Z-80 - LISTA NUM£RICA 



c6digo 

DE MAQUINA 

COMANDO 

50 

LD D,B 

51 

LD D,C 

52 

LD D,D 

53 

LD D,E 

54 

LD D,H 

55 

LD D,L 

56 

LD D,(HL) 

57 

LD D.A 

58 

LD E,B 

59 

LD E,C 

5A 

LD E,D 

5B 

LD E,E 

5C 

LD E,H 

5D 

LD E,L 

5E 

LD E,(HL) 

5F 

LD E,A 

60 

LD H,B 

61 

LD H,C 

62 

LD H,D 

63 

LD H,E 

64 

LD H,H 

65 

LD H,L 

66 

LD H,(HL) 

67 

LD H,A 

68 

LD L,B 

69 

LD L,C 

6A 

LD L,D 

6B 

LD L,E 

6C 

LD L,H 

6D 

LD L,L 

6E 

LD L,(HL) 

6F 

LD L,A 

70 

LD (HL),B 

71 

LD (HL),C 

72 

LD (HL),D 

73 

LD (HL),E 

74 

LD (HL),H 

75 

LD (HL),L 

76 

HALT 

77 

LD (HL),A 

78 

LD A,B 

79 

LD A,C 

7A 

LD A,D 

7B 

LD A,E 

7C 

LD A,H 

7D 

LD A,L 


CODIGO 

DE MAQUINA 

COMANDO 

7E 

LD A,{HL) 

7F 

LD A, A 

80 

ADD A,B 

81 

ADD A,C 

82 

ADD A,D 

83 

ADD A,E 

84 

ADD A,H 

85 

ADD A,L 

86 

ADD A,(HL) 

87 

ADD A,A 

88 

ADC A,B 

89 

ADC A,C 

8A 

ADC A,D 

8B 

ADC A,E 

8C 

ADC A,H 

8D 

ADC A,L 

8E 

ADC A,(HL) 

8F 

ADC A,A 

90 

SUB B 

91 

SUB C 

92 

SUB D 

93 

SUB E 

94 

SUB H 

95 

SUB L 

96 

SUB (HL) 

97 

SUB A 

98 

SBC A,B 

99 

SBC A,C 

9A 

SBC A,D 

9B 

SBC A,E 

9C 

SBC A,H 

9D 

SBC A,L 

9E 

SBC A,(HL) 

9F 

SBC A,A 

A0 

AND B 

A1 

AND C 

A2 

AND D 

A3 

AND E 

A4 

AND H 

A5 

AND L 

A6 

AND (HL) 

A7 

AND A 

A8 

XOR B 

A9 

XOR C 

AA 

XOR D 

AB 

XOR E 
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CODIGO 
i MAGUINA 

COMANDO 

AC 

XOR H 

AD 

XOR L 

AE 

XOR (HL) 

AF 

XOR A 

B0 

OR B 

B1 

OR C 

B2 

OR D 

B3 

OR E 

B4 

OR H 

B5 

OR L 

B6 

OR <HL) 

B7 

OR A 

B8 

CP B 

B9 

CPC 

BA 

CP D 

BB 

CP E 

BC 

CP H 

BD 

CP L 

BE 

CP (HL) 

BF 

CPA 

C0 

RET NZ 

Cl 

POP BC 

C2 

JP NZ,NN 

C3 

JP NN 

C4 

CALL NZ,NN 

C5 

PUSH BC 

C6 

ADD A,N 

C7 

RST 0 

C8 

RETZ 

C9 

RET 

CA 

JPZ,NN 

CB00 

RLC B 

CB01 

RLCC 

CB02 

RLC D 

CB03 

RLC E 

CB04 

RLC H 

CB05 

RLC L 

CB06 

RLC (HL) 

CB07 

RLC A 

CB08 

RRCB 

CB09 

RRCC 

CB0A 

RRCD 

CB0B 

RRCE 

CB0C 

RRCH 

CB0D 

RRC L 

CB0E 

RRC(HL) 


CODIGO 

DE MAQUINA 

COMANDO 

CB0F 

RRC A 

CB10 

RLB 

CB11 

RL C 

CB12 

RL D 

CB13 

RLE 

CBM 

RL H 

CB15 

RL L 

CB16 

RL (HL) 

CB17 

RL A 

CB18 

RR B 

CB19 

RR C 

CB1A 

RR D 

CB1B 

RR E 

CB1C 

RR H 

CB1D 

RR L 

CB1E 

RR (HL) 

CB1F 

RR A 

CB20 

SLA B 

CB21 

SLAC 

CB22 

SLA D 

CB23 

SLAE 

CB24 

SLA H 

CB25 

SLA L 

CB26 

SLA (HL) 

CB27 

SLA A 

CB28 

SRA B 

CB29 

SRAC 

CB2A 

SRA D 

CB2B 

SRA E 

CB2C 

SRA H 

CB2D 

SRA L 

CB2E 

SRA (HL) 

CB2F 

SRA A 

CB38 

SRLB 

CB39 

SRLC 

CB3A 

SRLD 

CB3B 

SRLE 

CB3C 

SRL H 

CB3D 

SRL L 

CB3E 

SRL (HL) 

CB3F 

SR^ A 

CB40 

BIT 0,B 

CB41 

>BIT0,C 

CB42 

BIT 0,D 

CB43 

BIT 0,E 

CB44 

BIT 0,H 
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C6DIG0 

DE MAQUINA 

COMANDO 

CB45 

BIT 0,L 

CB46 

BIT0,(HL) 

CB47 

BIT 0,A 

CB48 

BIT 1,B 

CB49 

BIT 1,C 

CB4A 

BIT t,D 

CB4B 

BIT 1,E 

CB4C 

BIT 1,H 

CB4D 

BIT 1,L 

CB4E 

BIT 1,{HU 

CB4F 

BIT 1 ,A 

CB50 

BIT2,B 

CB51 

BIT 2,C 

CB52 

BIT 2,D 

CB53 

BIT 2,E 

CB54 

BIT 2,H 

CB55 

BIT 2,L 

CB56 

BIT 2,(HL) 

CB57 

BIT 2,A 

CB58 

BIT 3,B 

CB59 

BIT 3,C 

CB5A 

BIT 3,D 

CB5B 

BIT 3,E 

CB5C 

BIT 3,H 

CB5D 

BIT 3,L 

CB5E 

BIT 3,(HL) 

CB5F 

BIT 3,A 

CB60 

BIT 4,B 

CB61 

BIT 4,C 

CB62 

BIT 4,D 

CB63 

BIT 4,E 

CB64 

BIT AM 

CB65 

BIT 4,L 

CB66 

BIT 4,(HL) 

CB67 

BIT 4,A 

C868 

BIT 5,B 

CB69 

BIT 5,C 

CB6A 

BIT 5,D 

CB6B 

BIT 5,E 

CB6C 

BIT 5 X H 

CB6D 

BIT 5,L 

CB6E 

BIT 5,{HL) 

CB6F 

BIT b,A 

CB70 

BIT 6,B 

CB71 

BIT 6,C 

CB72 

BIT 6 # D 


CODIGO 

DE MAQUINA 

COMANDO 

CB73 

BIT 6,E 

CB74 

BIT 6,H 

CB75 

BIT 6,L 

CB76 

BIT6,(HL) 

CB77 

BIT 6,A 

CB78 

BIT 7,B 

CB79 

BIT 7,C 

CB7A 

BIT 7,D 

CB7B 

BIT 7,E 

CB7C 

BIT 7,H 

CB7D 

BIT 7,L 

CB7E 

BIT 7,(HL) 

CB7F 

BIT 7,A 

CB80 

RES 0,B 

CB81 

RES 0,C 

CB82 

RES 0 f D 

CB83 

RES 0,E 

CB84 

RES 0 # H 

CB85 

RES 0,L 

CB86 

RES 0,(HL) 

CB87 

RES 0,A 

CB88 

RES 1,B 

CB89 

RES 1,C 

CB8A 

RES 1,D 

CB8B 

RES 1 # E 

CB8C 

RES 1,H 

CB8D 

RES 1,L 

CB8E 

RES 1 # (HL) 

CB8F 

RES1,A 

CB90 

RES 2,B 

CB91 

RES 2,C 

CB92 

RES 2 # D 

CB93 

RES 2,E 

CB94 

RES 2,H 

CB95 

RES 2,L 

CB96 

RES 2,(HL) 

CB97 

RES 2,A 

CB98 

RES 3,B 

CB99 

RES 3,C 

CB9A 

RES 3,D 

CB9B 

RES 3,E 

CB9C 

RES 3,H 

CB9D 

RES 3 f L 

CB9E 

RES 3,{HL) 

CB9F 

RES 3,A 

CBA0 

RES 4,B 



cCdigo 

DE MAGUINA 
CBA1 
CBA2 
CBA3 
CBA4 
CBA5 
CBA6 
CBA7 
CBA8 
CBA9 
CBAA 
CBAB 
CBAC 
CBAD 
CBAE 
CBAF 
CBB0 
CBB1 
CBB2 
CBB3 
CBB4 
CBB5 
CBB6 
CBB7 
CBB8 
CBB9 
CBBA 
CBBB 
CBBC 
CBBD 
CBBE 
CBBF 
CBC0 
CBC1 
CBC2 
CBC3 
CBC4 
CBC5 
CBC6 
CBC7 
CBC8 
CBC9 
CBCA 
CBCB 
CBGC 
CBCD 
CBCE 


COMANDO 

RES 4,C 
RES 4,0 
RES 4,E 
RES 4,H 
RES 4,L 
RES 4,{HL) 
RES4,A 
RES 5,B 
RES 5,0 
RES 5,D 
RES 5,E 
RES 5,H 
RES 5,L 
RES 5,(H L) 
RES 5,A 
RES 6,B 
R ES 6,0 
RES 6,D 
RES 6,E 
RES 6,H 
RES 6,L 
RES 6 r (HL) 
RES 6,A 
RES 7,B 
RES 7,0 
RES 7,0 
RES 7,E 
RES 7,H 
RES 7,L 
RES 7,(HL) 
RES 7, A 
SET 0,B 
SET 0,0 
SET 0,D 
SET 0,E 
SET 0,H 
SET 0,L 
SET 0,(HL) 
SET 0,A 
SET 1,B 
SET 1,0 
SET 1,0 
SET 1,E 
SET 1,H 
SET 1 f L 
SET 1,(HL) 


CODIGO 
DE MAQUiNA 
CBCF 
CBD0 
CBD1 
CBD2 
CBD3 
CBD4 
CBD5 
CBD6 
CBD7 
CBD8 
CBD9 
CBDA 
CBDB 
CBDC 
CBDD 
OBOE 
CBDF 
CBE0 
CBE1 
CBE2 
CBE3 
CBE4 
CBE5 
CBE6 
CBE7 
CBE8 
CBE9 
CBEA 
CBEB 
CBEC 
CBED 
CBEE 
CBEF 
CBF0 
CBF1 
CBF2 
CBF3 
CBF4 
CBF5 
CBF6 
CBF7 
CBF8 
CBF9 
CBFA 
CBFB 
CBFC 


COMANDO 

SET 1,A 
SET 2,B 
SET 2,C 
SET 2,D 
SET 2,E 
SET 2,H 
SET 2,L 
SET 2,{HL) 
SET 2A 
SET 3,B 
SET 3,C 
SET 3,0 
SET 3,E 
SET 3,H 
SET 3,L 
SET 3,(HL> 
SET 3,A 
SET 4,B 
SET 4,C 
SET 4,0 
SET 4,E 
SET 4,H 
SET 4,L 
SET 4,(HL) 
SET 4,A 
SET 5,B 
SET 5,0 
SET 5,D 
SET 5,E 
SET 5,H 
SET 5,L 
SET 5,(HL) 
SET 5,A 
SET 6,B 
SET 6,0 
SET 6,D 
SET 6,E 
SET 6,H 
SET 6,L 
SET 6,(HL) 
SET 6,A 
SET 7,B 
SET 7,0 
SET 7,0 
SET 7,E 
SET 7,H 
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CCDIGO 

DE MAQUiNA 

COMANDO 

CBFD 

SET 7,L 

CBFE 

SET 7,{HL) 

CBFF 

SET 7,A 

CC 

CALL Z,NN 

CD 

CALL NN 

CE 

ADC A,N 

CF 

RST 8 

D0 

RET NC 

D1 

POP DE 

D2 

JP NC,NN 

D3 

OUT N,A 

D4 

CALL NC,NN 

D5 

PUSH DE 

D6 

SUB N 

D7 

RST 10h 

D8 

RETC 

D9 

EXX 

DA 

JP C,NN 

DB 

IN A,(N) 

DC 

CALL C,NN 

DD09 

ADD IX,BC 

DD19 

ADD IX,DE 

DD21 

LD IX,NN 

DD22 

LD (NN),IX 

DD23 

INC IX 

DD29 

ADD IX,IX 

DD2A 

LD IX,(NN) 

DD2B 

DEC IX 

DD34 

INC (IX+IND) 

DD35 

DEC (IX+IND) 

DD36 

LD (IX + IND),N 

DD39 

ADD IX,SP 

DD46 

LD B,(IX + IND) 

DD4E 

LD C,(IX + !ND) 

DD56 

LD D,(IX+IND) 

DD5E 

LD E,(IX+IND) 

DD66 

LD H,(IX + IND) 

DD6E 

LD L,(IX+IND) 

DD70 

LD (IX + IND),B 

DD71 

LD (IX + IND),C 

DD72 

LD (IX + IND),D 

DD73 

LD (IX+IND),E 

DD74 

LD (IX+ IND),H 

DD75 

LD (IX+ IND),L 

DD77 

LD (IX+ IND),A 

DD7E 

LD A,(IX + iND) 


cOdigo 

DE MAQUINA 

COMANDO 

DD86 

ADD A,(IX + IND) 

DD8E 

ADC A,(IX+ IND) 

DD96 

SUB (IX + IND) 

DD9E 

SBC A,(IX + IND) 

DDA6 

AND (IX+IND) 

DDAE 

XOR (IX+IND) 

DDB6 

OR (IX + IND) 

DDBE 

CP (IX + IND) 

DDCB..06 

RLC (IX + IND) 

DDCB..0E 

RRC (IX+IND) 

DDCB..16 

RL (IX + IND) 

DDCB..1 E 

RR (IX + IND) 

DDCB..26 

SLA (IX+IND) 

DDCB..2E 

SRA (IX+IND) 

DDCB..3E 

SRL (IX + IND) 

DDCB..46 

BIT 0,(IX + IND) 

DDCB..4E 

BIT 1,(IX + IND) 

DDCB..56 

BIT2,(IX + IND) 

DDCB..5E 

BIT 3,(IX + IND) 

DDCB..66 

BIT 4,(IX + IND) 

DDCB..6E 

BIT 5,(IX+ IND) 

DDCB..76 

BIT 6,(!X+ IND) 

DDCB..7E 

BIT 7,(IX + IND) 

DDCB..86 

RES0,(IX+IND) 

DDCB..8E 

RES 1,(IX+IND) 

DDCB..96 

RES 2,(IX+IND) 

DDCB..9F 

RES 3,(IX+ IND) 

DDCB..A6 

RES 4,(IX+IND) 

DDCB..AE 

RES 5,(!X+ IND) 

DDCB..B6 

RES 6,(IX + IND) 

DDCB..BE 

RES 7,(IX+ IND) 

DDCB..C6 

SET 0,(IX + IND) 

DDCB..CE 

SET 1,(IX + IND) 

DDCB..D6 

SET2,(IX+IND) 

DDCB..DE 

SET 3,(1X+IND) 

DDCB..E6 

SET 4,(IX + IND) 

DDCB..EE 

SET 5,(IX+IND) 

DDCB..F6 

SET 6,(IX + IND) 

DDCB..FE 

SET 7,(IX+ IND) 

DDE1 

POP IX 

DDE3 

EX (SP),IX 

DDE5 

PUSH IX 

DDE9 

JP (IX) 

DDEB 

EX DE,IX 

DDF9 

LD SP,IX 

DE 

SBC A,N 
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cOdigo 

DE MAQUINA 

COMANDO 

DF 

RST 18h 

E0 

RET PO 

El 

POP HL 

E2 

JPPO,NN 

E3 

EX (SP),HL 

E4 

CALL PO.NN 

E5 

PUSH HL 

E6 

AND N 

E7 

RST 20h 

E8 

RET PE 

E9 

JP (HL) 

EA 

JPPE.NN 

EB 

EX DE,HL 

EC 

CALL PE,NN 

ED40 

IN B,(C) 

ED41 

OUT (C),B 

ED42 

SBC HL,BC 

ED43 

LD (NN),BC 

ED44 

NEG 

ED45 

RETN 

ED46 

IM 0 

ED47 

LD |,A 

ED48 

IN C,(C) 

ED49 

OUT (C),C 

ED4A 

ADC HL,BC 

ED4B 

LD BC,(NN) 

ED4D 

RETI 

ED4F 

LD R,A 

ED50 

IN D,(C) 

ED51 

OUT (C),D 

ED52 

SBC HL,DE 

ED53 

LD (NN),DE 

ED56 

IM 1 

ED57 

LD A,l 

ED58 

IN E,(C) 

ED59 

OUT (C),E 

ED5A 

ADC HL,DE 

ED5B 

LD DE,(NN) 

ED5E 

IM 2 

ED5F 

LD A,R 

ED60 

IN H,(C) 

ED61 

OUT (C),H 

ED62 

SBC HL,HL 

ED63 

LD (NN),HL 

ED67 

RRD 

ED68 

IN L,(C) 


C6DIG0 

DE MAQUINA 

COMANDO 

ED69 

OUT (C),L 

ED6A 

ADC HL,HL 

ED6B 

LD HL,(NN) 

ED6F 

RLD 

ED72 

SBC HL,SP 

ED73 

LD (NN),SP 

ED78 

IN A,(C) 

ED79 

OUT (C),A 

ED7A . 

ADC HL,SP 

ED7B 

LD SP,(NN) 

EDA0 

LDI 

EDA1 

CPI 

EDA2 

INI 

ED A3 

OUTI 

EDA8 

LDD 

EDA9 

CPD 

EDAA 

IND 

EDAB 

OUTD 

EDB0 

LDIR 

EDB1 

CPIR 

EDB2 

INIR 

EDB3 

OTIR 

EDB8 

LDDR 

EDB9 

CPDR 

EDBA 

INDR 

EDBB 

OTDR 

EE 

XOR N 

EF 

RST 28h 

F0 

RET P 

FI 

POP AF 

F2 

JP P,NN 

F3 

Dl 

F4 

CALL P,NN 

F5 

PUSH AF 

F6 

OR N 

F7 

RST 30h 

F8 

RET M 

F9 

LD SP,HL 

FA 

JP M,NN 

FB 

El 

FC 

CALL M,NN 

FD09 

ADD IY,BC 

FD19 

ADD IY,DE 

FD21 

LD !Y,NN 

FD22 

LD (NN),IY 

FD23 

INC IY 
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C6DIG0 

OE MAQUINA 

COMANDO 

FD29 

ADD IY,IY 

FD2A 

LD IY,(NN) 

FD2B 

DEC iY 

FD34 

INC (IY + IND) 

FD35 

DEC (IY + IND) 

FD36 

LD (IY + IND),N 

FD39 

ADD IY,SP 

FD46 

LD B,(IY+IND) 

FD4E 

LD C,(IY+IND) 

FD56 

LD D,(IY+ IND) 

FD5E 

LD E,(IY+IND) 

FD66 

LD H,(IY+ IND) 

FD6E 

LD L,(IY+IND) 

FD70 

LD (IY+ IND) ( B 

FD71 

LD (IY + IND),C 

FD72 

LD (IY+IND),D 

FD73 

LD (IY + IND),E 

FD74 

LD (IY + IND),H 

FD75 

LD (IY+IND),L 

FD77 

LD (IY + IND),A 

FD7E 

LD A,(IY+IND) 

FD86 

ADD A,(lY+ IND) 

FD8E 

ADC A,(IY+IND) 

FD96 

SUB (IY+IND) 

FD9E 

SBC A,(IY+IND) 

FDA6 

AND (IY + IND) 

FDAE 

XOR (IY + IND) 

FDB6 

OR (IY+IND) 

FDBE 

CP (IY + IND) 

FDCB..06 

RLC (IY+IND) 

FDCB..0E 

RRC (IY + IND) 

FDCB..16 

RL (IY + IND) 

FDCB..1E 

RR (IY + IND) 

FDCB..26 

SLA (IY+IND) 


cOdigo 

DE MAQUINA 

COMANDO 

FDCB..2E 

SRA (IY + IND) 

FDCB..3E 

SRL (IY + IND) 

FDCB..46 

BIT 0,(lY + IND) 

FDCB..4E 

BIT 1,(IY+IND) 

FDCB..56 

BIT 2,(IY+IND) 

FDCB..5E 

BIT 3,(IY+IND) 

FDCB..66 

BIT 4,(IY+IND) 

FDCB..6E 

BIT 5,(IY+IND) 

FDCB..76 

BIT 6,(IY+ IND) 

FDCB..7E 

BIT 7,(IY + IND) 

FDCB..86 

RES 0,(IY+IND) 

FDCB..8E 

RES 1,(IY+IND) 

FDCB..96 

RES 2,(IY + IND) 

FDCB..9E 

RES 3,(IY + IND) 

FDCB..A6 

RES 4,(IY+ IND) 

FDCB..AE 

RES 5,(IY + IND) 

FDCB..B6 

RES 6,(IY+IND) 

FDCB..BE 

RES 7,(IY + IND) 

FDCB..C6 

SET 0,(IY + IND) 

FDCB..CE 

SET 1,(IY+IND) 

FDCB..D6 

SET 2,(IY + IND) 

FDCB..DE 

SET 3,(IY+IND) 

FDCB..E6 

SET 4,(IY + IND) 

FDCB..EE 

SET 5,(IY + IND) 

FDCB..F6 

SET 6,(IY + IND) 

FDCB..FE 

SET 7,(IY + IND) 

FDE1 

POP IY 

FDE3 

EX (SP),IY 

FDE5 

PUSH IY 

FDE9 

JP (IY) 

FDEB 

EX DE,IY 

FDF9 

LD SP,IY 

FE 

CP N 

FF 

RST 38 h 
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COMANDO 

CODIGO 

ADC A,(HL) 

8E 

ADC A,(IX + IND) 

DD8E 

ADC A,(!Y+IND) 

FD8E 

ADC A,A 

8F 

ADC A,B 

88 

ADC A,C 

89 

ADC A,D 

8A 

ADC A,E 

8B 

ADC A,H 

8C 

ADC A,L 

8D 

ADC A # N 

CE 

ADC HL,BC 

ED4A 

ADC HL,DE 

ED5A 

ADC HL,HL 

ED6A 

ADC HL,SP 

ED7A 

ADD A,(HL) 

86 

ADD A,(1X + IND) 

DD86 

ADD A,(l Y + IND) 

FD86 

ADD A,A 

87 

ADD A,B 

80 

ADD A,C 

81 

ADD A,D 

82 

ADD A,E 

83 

ADD A,H 

84 

ADD A,L 

85 

ADD A,N 

C6 

ADD HL,BC 

09 

ADD HL,DE 

19 

ADD HL,HL 

29 

ADD HL,SP 

39 

ADD IX,BC 

DD09 

ADD IX,DE 

DD19 

ADD IX,IX 

DD29 

ADD IX r SP 

DD39 

ADD IY,BC 

FD09 

ADD IY,DE 

FD19 

ADD IY,!Y 

FD29 

ADD IY,SP 

FD39 

AND (HL) 

A6 

AND (IX + IND) 

DDA6 

AND (IY + IND) 

FDA6 


COMANDO 

cOdigo 

AND A 

A7 

AND B 

A0 

AND C 

A1 

AND D 

A2 

AND E 

A3 

AND H 

A4 

AND L 

A5 

AND N 

E6 

BIT 0,{HL) 

CB46 

BIT0, (IX+IND) 

DDCB..46 

BIT0, (IY+IND) 

FDCB..46 

BIT 0,A 

CB47 

BIT 0,B 

CB40 

BIT 0,C 

CB41 

BIT 0,D 

CB42 

BIT 0,E 

CB43 

BIT 0,H 

CB44 

BIT 0,L 

CB45 

BIT 1, (H L) 

CB4E 

BIT 1,(IX + IND) 

DDCB..4E 

BIT 1,(IY+IND) 

FDCB..4E 

BIT 1,A 

CB4F 

BIT t,B 

CB48 

BIT 1,C 

CB49 

BIT 1,D 

CB4A 

BIT 1,E 

CB4B 

BIT 1,H 

CB4C 

BIT 1,L 

CB4D 

BIT 2,(HL) 

CB56 

BIT 2,(IX + IND) 

DDCB..56 

BIT 2,(IY+IND) 

FDCB..56 

BIT 2,A 

CB57 

BIT 2,B 

CB50 

BIT 2,C 

CB51 

BIT 2,D 

CB52 

BIT 2,E 

CB53 

BIT 2,H 

CB54 

BIT 2,L 

CB55 

BIT 3,(HL) 

CB5E 

BIT 3,(IX+IND) 

DDCB..5E 

BIT 3,(IY + IND) 

FDCB..5E 


Apendice 


O CONJUNTO DE INSTRUQOES 
DO Z-80 - LISTA ALFABeTICA 



COMANDO 

cOdigo 

BIT 3,A 

CB5F 

BIT 3,B 

CB58 

BIT 3,C 

CB59 

BIT 3,D 

CB5A 

BIT 3,E 

CB5B 

BIT3,H 

CB5C 

BIT 3,L 

CB5D 

BIT 4,(HL) 

CB66 

BIT 4,(IX+ IND) 

DDCB..66 

BIT 4,(IY + IND) 

FDCB..66 

BIT 4,A 

CB67 

BIT 4,B 

CB60 

BIT 4,C 

CB61 

BIT 4,D 

CB62 

BIT 4,E 

CB63 

BIT 4,H 

CB64 

BIT 4,L 

CB65 

BIT5,(HL) 

CB6E 

BIT 5,(IX+ IND) 

DDCB..6E 

BIT 5,(1 Y+ IND) 

FDCB..6E 

BIT 5,A 

CB6F 

BIT 5,B 

CB68 

BIT 5,C 

CB69 

BIT 5,D 

CB6A 

BIT 5,E 

CB6B 

BIT 5,H 

CB6C 

BIT 5,L 

CB6D 

BIT 6,{HL) 

CB76 

BIT 6,(IXHND) 

DDCB..76 

BIT 6,{IY+ IND) 

FDCB..76 

BIT 6,A 

CB77 

BIT 6,B 

CB70 

BIT 6,C 

CB71 

BIT 6,D 

CB72 

BIT 6,E 

CB73 

BIT 6,H 

CB74 

BIT 6, L 

CB75 

BIT 7,(HL) 

CB7E 

BIT 7,(iX+ IND) 

DDCB..7E 

BIT 7,(IYTIND) 

FDCB..7E 

BIT 7,A 

CB7F 

BIT 7,B 

CB78 

BIT 7,C 

CB79 

BIT 7,D 

CB7A 

BIT 7,E 

CB7B 

BIT 7,H 

CB7C 


COMANDO 

cOdigo 

BIT 7,L 

CB7D 

CALL C,NN 

DC 

CALL M ; NN 

FC 

CALL NC,NN 

D4 

CALL NN 

CD 

CALL NZ X NN 

C4 

CALL P,NN 

F4 

CALL PE,NN 

EC 

CALL PO,NN 

E4 

CALL Z,NN 

CC 

CCF 

3F 

CP (HL) 

BE 

CP (IX + IND) 

DDBE 

CP (IY+IND) 

FDBE 

CPA 

BF 

CP B 

B8 

CPC 

B9 

CP D 

BA 

CP E 

BB 

CP H 

BC 

CP L 

BD 

CP N 

FE 

CPD 

EDA9 

CPDR 

EDB9 

CPI 

EDA1 

CPIR 

EDB1 

CPL 

2F 

DAA 

27 

DEC (HL) 

35 

DEC (IX + IND) 

DD35 

DEC (IY + IND) 

FD35 

DEC A 

3D 

DEC B 

05 

DEC BC 

0B 

DEC C 

0D 

DEC D 

15 

DEC DE 

IB 

DEC E 

ID 

DEC H 

25 

DEC HL 

2B 

DEC IX 

DD2B 

DEC IY 

FD2B 

DEC L 

2D 

DEC SP 

3B 

Dl 

F3 

DJNZ DIS 

10 



COMANDO 

cOdigo 

El 

FB 

EX (SP),HL 

E3 

EX (SP),IX 

DDE3 

EX (SP),IY 

FDE3 

EX AF,AF' 

08 

EX DE,HL 

EB 

EXX 

D9 

HALT 

76 

IM 0 

ED46 

IM 1 

ED56 

IM 2 

ED5E 

IN A,(C) 

ED78 

IN A ; N 

DB 

IN B,(C) 

ED40 

IN C,(C) 

ED48 

IN D,(C) 

ED50 

IN E,(C) 

ED58 

IN H,(C) 

ED60 

IN L,(C) 

ED 68 

INC(HL) 

34 

INC (IX + IND) 

DD34 

INC (IYTIND) 

FD34 

INCA 

3C 

INC B 

04 

INC BC 

03 

INC C 

0C 

INC D 

14 

INC DE 

13 

INCE 

1C 

INC H 

24 

INC HL 

23 

INC IX 

DD23 

INC IY 

FD23 

INC L 

2C 

INC SP 

33 

IND 

EDAA 

INDR 

EDBA 

INI 

EDA2 

INIR 

EDB2 

JP (HL) 

E9 

JP (IX) 

DDE9 

JP (IY) 

FDE9 

JP C,NN 

DA 

JP M,NN 

FA 

JP NC,NN 

D2 

JP NN 

C3 


COMANDO 

cOdigo 

JP NZ,NN 

C2 

JP P,NN 

F2 

JP PE,NN 

EA 

JP PO,NN 

E2 

JP Z,NN 

CA 

JR C,DIS 

38 

JR DfS 

18 

JR NC,DIS 

30 

JR NZ.DfS 

20 

JR Z,DIS 

28 

LD <BC),A 

02 

LD (DE),A 

12 

LD (HL),A 

77 

LD (HL),B 

70 

LD {HL),C 

71 

LD (HL),D 

72 

LD (HL),E 

73 

LD (HL),H 

74 

LD (HL),L 

75 

LD (HL),N 

36 

LD (IX + IND),A 

DD77 

LD (IX + IND),B 

DD70 

LD (IX+ IND),C 

DD71 

LD {IX+IND),D 

DD72 

LD (IX+ IND),E 

DD73 

LD (IX+IND),H 

DD74 

LD (IX+ IND),L 

DD75 

LD (IX+ IND),N 

DD36 

LD (IY+IND),A 

FD77 

LD (IY+IND),B 

FD70 

LD (IY+IND),C 

FD7T 

LD (IY+IND),D 

FD72 

LD (IY+IND),E 

FD73 

LD (IY+IND),H 

FD74 

LD (IY + IND),L 

FD75 

LD (!Y+IND),N 

FD36 

LD (NN),A 

32 

LD (NN),BC 

ED43 

LD (NN),DE 

ED53 

LD (NN),HL 

22 ou ED63 

LD (NN),IX 

DD22 

LD (NN),IY 

FD22 

LD (NN),SP 

ED73 

LD A,(BC) 

0A 

LD A,(DE) 

1A 

LD A,{HL) 

7E 


148 



COMANDO 


C6DIGO 


COMANDO 


C6DIGO 


LD A,(!X + IND) DD7E 

LD A,(IY+IND) FD7E 

LD A,(NN) 3A 

LD A,A 7F 

LD A,B 78 

LD A,C 79 

LD A,D 7A 

LD A,E 7B 

LD A,H 7C 

LD A,I ED57 

LD A,L 7D 

LD A,N 3E 

LD A,R ED5F 

LD B,(HL) 46 

LD B,(IX+IND) DD46 

LDB,(IY+IND) FD46 

LD B,A 47 

LD B,B 40 

LD B,C 41 

LD B,D 42 

LD B,E 43 

LD B,H 44 

LD B,L 45 

LD B,N 06 

LD BC,(NN) ED4B 

LD BC,NN 01 

LD C,(HL) 4E 

LD C,(IX+ IND) DD4E 

LD C,(IY + IND) FD4E 

LD C,A 4F 

LD C,B 48 

LD C,C 49 

LD C,D 4A 

LD C,E 4B 

LD C,H 4C 

LD C,L 4D 

LD C,N 0E 

LD D,(HL) 56 

LDD,(IX + 1ND) DD56 

LD D,(IY+1ND) FD56 

LD D,A 57 

LD D,B 50 

LD D,C 51 

LD D,D 52 

LD D,E 53 

LD D,H 54 


LD D,L 

55 

LD D,N 

16 

LD DE,(NN) 

ED5B 

LD DE,NN 

11 

LD E,(HL) 

5E 

LD E,(IX + IND) 

DD5E 

LD E,(IY4-IND) 

FD5E 

LD E,A 

5F 

LD E,B 

58 

LD E,C 

59 

LD E,D 

5A 

LD E,E 

5B 

LD E,H 

5C 

LD E,L 

5D 

LD E,N 

IE 

LD H,(HL) 

66 

LD H^IX+IND) 

DD66 

LD H,(IY + IND) 

FD66 

LD H,A 

67 

LD H,B 

60 

LD H,C 

61 

LD H,D 

62 

LD H,E 

63 

LD H,H 

64 

LD H # L 

65 

LD H,N 

26 

LD HUNN) 

2Aou ED6B 

LD HL,NN 

21 

LD l,A 

ED47 

LD IX,{NN) 

DD2A 

LD IX,NN 

DD21 

LD IY,(NN) 

FD2A 

LD IY,NN 

FD21 

LD L,(HL) 

6E 

LD L,(IX + IND) 

DD6E 

LD L,(IY+ IND) 

FD6E 

LD L,A 

6F 

LD L,B 

68 

LD L,C 

69 

LD L # D 

6A 

LD L,E 

6B 

LD L,H 

6C 

LD L,L 

6D 

LD L,N 

2E 

LD R,A 

ED4F 

LD SP,(NN) 

ED7B 
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COMANDO 

C0DIGO 

LD SP,HL 

F9 

LD SP,IX 

DDF9 

LD SP,I Y 

FDF9 

LD SP,NN 

31 

LDD 

EDA8 

LDDR 

EDB8 

LDi 

EDA0 

LDIR 

EDB0 

NEG 

ED44 

(MOP 

00 

OR <HL) 

B6 

OR (IX + IND) 

DDB6 

OR (IY-HND) 

FDB6 

ORA 

B7 

OR B 

B0 

ORC 

B1 

OR D 

B2 

OR E 

B3 

OR H 

B4 

OR L 

B5 

OR N 

F6 

OTDR 

EDBB 

OTIR 

EDB3 

OUT (C),A 

ED79 

OUT (C),B 

ED41 

OUT (C),C 

ED49 

OUT (C),D 

ED51 

OUT (C),E 

ED59 

OUT (C),H 

ED61 

OUT (C),L 

ED69 

OUT N, A 

D3 

OUTD 

EDA8 

OUTI 

EDA3 

POP AF 

FI 

POP BC 

Cl 

POP DE 

D1 

POP HL 

El 

POP IX 

DDE1 

POP IY 

FDE1 

PUSH AF 

F5 

PUSH BC 

C5 

PUSH DE 

D5 

PUSH HL 

E5 

PUSH IX 

DDE5 

PUSH IY 

FDE5 

RES 0,(HL) 

CB86 


COMANDO 

CCDIGO 

RES 0,{IX+ IND) 

DDCB..86 

RES 0,(IY+IND) 

FDCB..86 

RES 0,A 

CB87 

RES 0,B 

CB80 

RES 0,C 

CB81 

RES 0,D 

CB82 

RES 0,E 

CB83 

RES 0,H 

CB84 

RES 0,L 

CB85 

RES 1 ,(HL) 

CB8E 

RES 1 ,(IX + iND) 

DDCB..8E 

RES UIY + IND) 

FDCB..8E 

RES 1,A 

CB8F 

RES 1,B 

CB88 

RES 1,C 

CB89 

RES 1 ,D 

CB8A 

RES 1,E 

CB8B 

RES 1,H 

CB8C 

RES 1,L 

CB8D 

RES 2,(HL) 

CB96 

RES 2,(IX+IND) 

DDCB..96 

RES 2,(IY + IND) 

FDCB..96 

RES 2,A 

CB97 

RES 2,B 

CB90 

RES 2,C 

CB91 

RES 2,D 

CB92 

RES 2,E 

CB93 

RES 2,H 

CB94 

RES 2,L 

CB95 

RES 3,(HL) 

CB9E 

RES 3,(IX + IND) 

DDCB..9E 

RES 3,{IY+IND) 

FDCB..9E 

RES 3,A 

CB9F 

RES 3,B 

CB98 

RES 3,C 

CB99 

RES 3,D 

CB9A 

RES 3,E 

CB9B 

RES 3,H 

CB9C 

RES 3,L 

CB9D 

RES 4,(HL) 

CBA6 

RES 4,(IX + IND) 

DDCB..A6 

RES 4,(IY+IND) 

FDCB..A6 

RES 4,A 

CBA7 

RES 4,B 

CBA0 

RES 4,C 

CBA1 

RES 4,D 

CBA2 
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COMANDO 

C0DIGO 

RES 4,E 

CBA3 

RES 4,H 

CBA4 

RES 4,L 

CBA5 

RES 5,(HL) 

CBAE 

RES 5,( IX + IND) 

DDCB..AE 

RES 5,(IY + IND) 

FDCB..AE 

RES 5,A 

CBAF 

RES 5,B 

CBA8 

RES 5,C 

CBA9 

RES 5 # D 

CBAA 

RES 5,E 

CBAB 

RES 5,H 

CBAC 

RES 5,L 

CBAD 

RES 6,(HL) 

CBB6 

RES 6,(iX + IND) 

DDCB..B6 

RES 6,(1 Y + IND) 

FDCB..B6 

RES 6,A 

CB87 

RES 6,B 

CBB0 

RES 6,C 

CBB1 

RES 6,D 

CBB2 

RES 6,E 

CBB3 

RES 6,H 

CBB4 

RES 6,L 

CBB5 

RES 7,(HL) 

CBBE 

RES 7,(iX + IND) 

DDCB..BE 

RES 7,(1 Y+ IND) 

FDCB..BE 

RES 7,A 

CBBF 

RES 7,B 

CBB8 

RES 7,C 

CBB9 

RES 7,D 

CBBA 

RES 7,E 

CBBB 

RES 7,H 

CBBC 

RES 7,L 

CBBD 

RET 

C9 

RET C 

D8 

RET M 

F8 

RET NC 

D0 

RET NZ 

C0 

RET P 

F0 

RET PE 

' E8 

RET PO 

E0 

RETZ 

C8 

RETI 

ED4D 

RETN 

ED45 

RL (HL) 

CB16 

RL (IX + IND) 

DDCB..16 


COMANDO 

cOdigo 

RL (IY+IND) 

FDCB..16 

RL A 

CB17 

RL B 

CB10 

RL C 

CB11 

RL D 

CB12 

RL E 

CB13 

RL H 

CB14 

RL L 

CB15 

RLA 

17 

RLC (HL) 

CB06 

RLC (IX+IND) 

DDCB..06 

RLC (IY + IND) 

FDCB..06 

RLC A 

CB07 

RLC B 

CB00 

RLC C 

CB01 

RLC D 

CB02 

RLC E 

CB03 

RLC H 

CB04 

RLC L 

CB05 

RLC A 

07 

RLD 

ED6F 

RR (HL) 

CB1E 

RR (IX + IND) 

DDCB..1E 

RR (IY + IND) 

FDCB..1E 

RR A 

CB1F 

RR B 

CB18 

RR C 

CB19 

RR D 

CB1A 

RR E 

CB1B 

RR H 

CB1C 

RR L 

CB1D 

RRA 

IF 

RRC (HL) 

CB0E 

RRC (IX + IND) 

DDCB..0E 

RRC (IY+IND) 

FDCB..0E 

RRC A 

CB0F 

RRC B 

CB08 

RRC C 

CB09 

RRC D 

CB0A 

RRC E 

CB0B 

RRC H 

CB0C 

RRC L 

CB0D 

RRCA 

0F 

RRD 

ED67 

RST 0 

C7 

RST 8 

CF 



COMANDO 

cOdigo 

RST 10h- 

D7 

RST 18h 

DF 

RST 20h 

E7 

RST 28h 

EF 

RST 30h 

F7 

RST 38h 

FF 

SBC A,(HL) 

9E 

SBC A,(IX + IND) 

DD9E 

SBC A,(IY + IND) 

FD9E 

SBC A, A 

9F 

SBC A,B 

98 

SBC A,C 

99 

SBC A,D 

9A 

SBC A,E 

9B 

SBC A,H 

9C 

SBC A,L 

9D 

SBC A,N 

DE 

SBC HL,BC 

ED42 

SBC HL,DE 

ED52 

SBC HL,HL 

ED62 

SBC HL,SP 

ED72 

SCF 

37 

SET 0,(HL) 

CBC6 

SET 0,(IX + IND) 

DDCB..C6 

SET 0,{IY + IND> 

FDCB..C6 

SET 0,A 

CBC7 

SET 0,B 

CBC0 

SET 0,C 

CBC1 

SET 0,D 

CBC2 

SET 0,E 

CBC3 

SET 0,H 

CBC4 

SET 0, L 

CBC5 

SET 1,(HL) 

CBCE 

SET UIX + IND) 

DDCB..CE 

SET 1,(IY+IND) 

FDCB..CE 

SET 1,A 

CBCF 

SET 1,B 

CBC8 

SET 1,C 

CBC9 

SET 1,D 

CBCA 

SET 1,E 

CBCB 

SET 1,H 

CBCC 

SET 1,L 

CBCD 

SET 2,(HL) 

CBD6 

SET 2,(IX + !ND) 

DDCB..D6 

SET 2,(IY+IND) 

FDCB..D6 

SET 2, A 

CBD7 


COMANDO 

CODIGO 

SET 2,B 

CBD0 

SET 2,C 

CBD1 

SET 2 f D 

CBD2 

SET 2,E 

CBD3 

SET 2,H 

CBD4 

SET 2,L 

CBD5 

SET 3,{HL) 

CBDE 

SET 3,(IX-HND) 

DDCB..DE 

SET 3,(IY+ IND) 

FDCB..DE 

SET 3,A 

CBDF 

SET 3,B 

CBD8 

SET 3,C 

CBD9 

SET 3,D 

CBDA 

SET 3,E 

CBDB 

SET 3,H 

CBDC 

SET 3,L 

CBDD 

SET 4,(HL) 

CBE6 

SET 4,(IX-HND> 

DDCB..E6 

SET 4,(IY -FIND) 

FDCB..E6 

SET 4,A 

CBE7 

SET 4,B 

CBE0 

SET 4,C 

CBE1 

SET 4,D 

CBE2 

SET 4,E 

CBE3 

SET 4,H 

CBE4 

SET 4,L 

CBE5 

SET 5,(HL) 

CBEE 

SET 5 # (IX+ IND} 

. DDCB..EE 

SET 5,(IY+ IND) 

FDCB..EE 

SET 5 f A 

CBEF 

SET 5 f B 

CBE8 

SET 5,C 

CBE9 

SET 5,D 

CBEA 

SET 5,E 

CBEB 

SET 5,H 

CBEC 

SET 5,L 

CBED 

SET 6 # (HL) 

CBF6 

SET 6,(IX+ IND) 

DDCB..F6 

SET 6,(IY + IND) 

FDCB..F6 

SET 6 ; A 

CBF7 

SET 6,B 

CBF0 

SET 6,C 

CBF1 

SET 6 X D 

CBF2 

SET 6,E 

CBF3 

SET 6,H 

CBF4 

SET 6,L 

CBF5 
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COMANDO 

CODIGC 

SET 7,(HL) 

CBFE 

SET 7,(IX^IND) 

DDCB..FE 

SET 7,{!Y-HND) 

FDCB..FE 

SET 7, A 

CBFF 

SET 73 

CBF8 

SET 7,C 

CBF9 

SET 7,D 

CBFA 

SET 7,E 

CBFB 

SET 7,H 

CBFC 

SET 7,L 

CBFD 

SLA (HL> 

C826 

SLA (IX + IND) 

DDCB..26 

SLA (IY + IND) 

FDCB..26 

SLA A 

CB27 

SLAB 

CB20 

SLAC 

CB21 

SLA D 

CB22 

SLA E 

CB23 

SLA H 

CB24 

SLA L 

CB25 

SRA(HL) 

CB2E 

SRA (IX + iND) 

DDCB..2E 

SRA (IY + IND) 

FDCB..2E 

SRA A 

CB2F 

SRA B 

CB28 

SRA C 

CB29 

SRA D 

CB2A 

SRA E 

CB2B 

SRA H 

CB2C 

SRA L 

CB2D 

SRL (HL) 

CB3E 


COMANDO 

C6DIGO 

SRL (IX+1ND) 

DDCB..3E 

SRL (IY+IND) 

FDCB..3E 

SRL A 

CB3F 

SRL B 

CB38 

SRL C 

CB39 

SRL D 

CB3A 

SRL E 

CB3B 

SRL H 

CB3C 

SRL L 

CB3D 

SUB {HL) 

96 

SUB (IX+IND) 

DD96 

SUB (IY+IND) 

FD96 

SUB A 

97 

SUB B 

90 

SUB C 

91 

SUB D 

92 

SUB E 

93 

SUB H 

94 

SUB L 

95 

SUB N 

D6 

XOR (HL) 

AE 

XOR (IX+IND) 

DDAE 

XOR (IY+IND) 

FDAE 

XOR A 

AF 

XOR B 

A8 

XOR C 

A9 

XOR D 

AA 

XOR E 

AB 

XOR H 

AC 

XOR L 

AD 

XOR N 

EE 
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So estao listadas as instrugoes que afetam alguma flag. Usamos os seguintes codigos: 

* flag afetada, resultado depende da operacao 

? flag afetada, resultado indefinido 

0 flag afetada, resultado 0 

1 flag afetada, resultado 1 

— flag nao afetada 
X ver observagao 
r registrador simples 
rr par de registradores 
n numero de 1 byte 
nn numero de 2 bytes 


INSTRUQAO REGISTRADOR F 



S 

Z 

pi 

H 

W'n 

P/V 

N 

C 

ADC A,r 

* 

* 

- 

* 

- 

* 

a 

* 

ADC HL,rr 

* 

* 

- 


- 

* 

0 

* 

ADD A,r 

* 

* 

- 

* 

- 

* 

0 

* 

ADDHL,rr 

- 

- 

- 

* 

- 

- 

0 

* 

ADD IX,rr 

- 

- 

- 

* 

- 

- 

0 

* 

ADD IY,rr 

- 

- 

- 

« 

- 

- 

0 

* 

AND r 

* 

* 

- 

1 

- 

* 

0 

0 

BIT n,r 

? 

* 

. “ 

1 

- 

* 

0 

- 

CCF 

- 

- 

- 

X 

- 

- 

0 

* 

CP r 

* 

* 

- 

* 

- 

* 

1 

* 

CPD 

* 

X 

- 

* 

- 

X 

1 

- 

CPDR 

* 

X 

- 

* 

- 

X 

1 

- 


A flag H assume o va¬ 
lor anterior da flag C. 

Se A= (HL) entao 
Z= 1 

Se BC ” 0 entao 
P/V = 0 


FLAGS AFETADAS PE LAS INSTRUgOES 


Apendice 




INSTRUpAO 

CPI 
CPIR 
CPL 
DAA 
DEC r 
IN r,(C) 

INC r 

IND 

INDR 

INI 

INIR 

LD A, I 

LD A,R 

LDD 

LDDR 

LDI 

LDIR 

NEG 

OR 

OTDR 

OTIR 

OUTD 


REGISTRADOR F 


s 

—1 
z 

— 

H 

il 

P/V 

N 

c 

# 

X 


« 

- 

X 

1 

- 

• 

X 

- 

* 

- 

X 

1 

- 

- 

- 

- 

1 

- 


1 

- 

* 

* 

- 

# 

- 

* 

- 

# 

* 

* 


* 

- 

* 

1 

— 

* 

# 

- 

« 

- 

* 

0 

- 

# 

* 

- 

* 


* 

0 

- 

? 

X 

- 

? 

- 

? 

1 

- 

? 

1 

- 

? 

- 

? 

1 

- 

? 

X 

- 

? 

- 

? 

1 

- 

? 

1 

- 

? 

- 

? 

1 

- 

* 

* 

- 

a 

; - 

X 

0 

- 


* 

- 

0 

- 

X 

0 

- 

- 

- 

- 

0 

- 

X 

0 

- 

- 

- 

- 

0 

- 

0 

0 

- 

- 

- 

- 

0 

- 

X 

0 

- 

— 

- 

- 

0 

- 

0 

0 

- 

* 

* 

- 

* 

- 

* 

1 

* 

# 

# 

- 

0 

- 

* 

0 

0 

? 

1 

- 

? 

- 

? 

1 

- 

? 

1 

- 

? 

- 

? 

1 

- 

? 

X 

- 

? 

- 

? 

1 

- 


Se BC = 0 entSo 
P/V=0 

Se A = (HL) ent§o 
Z = 1 


Se B = 0 entao Z = 1 


Se B = 0 entao Z = 1 


Oconteudoda "flag" 
de interrupgao e 
copiado na flag P/V 

Se BC = 0 entao 
P/V = 0 


Se BC = 0 entao 
P/V = 0 


Se B = 0 entao Z = 1 
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INSTRUQAO REGISTRADOR F 



S 

z 

§©! 

H 

m 



c 

OUT! 

a 

X 

B 

a 

- 

? 

1 

1 

POP AF 

X 

X 

H 

B 

X 



X 

RLr 

a 

a 

a 

a 

9 


0 

* 

RLA 


■ 

a 

a 

a 


0 

* 

RLCr 

a 

a 




■ 

B 

# 

RLCA 

a 

a 

1 

a 

a 

B 

B 

* 

RLD 

a 

■ 

- 

0 

- 

B 

B 

- 

RR r 

* 

■ 


D 

a 



* 

RRA 

- 

a 

a 



B 

0 

* 

RRCr 


a 


a 

a 

B 

0 

_ 

* 

RRC A 




0 

- 

' - 

0 

* 

RRD 




0 

- 

# 

0 

- 

SBC A,r 


■ 


* 

- 

* 

1 

- 

SBC HL,rr 


a 


*• 

- 

* 

1 

# 

SCF 


a 


a 

9 


0 

1 

SLAr 


a 




B 

0 

* 

SRAr 


a 




B 

0 

, # 

SRLr 

9 

a 



a 

B 

0 

# 

SUB r 


a 




B 

1 

# 

XOR r 


a 



- 

B 

0 

0 


Se B = 0 entao Z = 1 

As flags sao 
determinadas pelo 
byte no topo da pi lha 
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Suponhamos que voce comprou uma fita com urn jogo e, observando a listagem, 15 est5 a 
linha REM com cbdigos de mSquina, e voce quer desmontar as rotinas ali existentes. Para 
isto e necessario obter os codigos hexadecimais. Nada mais fcicil. 

Mantendo o programa no computador, digite este programinha: 

9000 DIM C(2) 

9905 DIM C$(2) 

9010 LET E=16514 
9015 LET N=PEEK E 
9020 LET C(1)=INT (N/16) 

9025 LET R = N-C (1) * 16 

9030 LET C(2) = R 

9035 FOR A=1 TO 2 

9040 LET C$ (A)=CHR$ (C(A)+28) 

9045 NEXT A 

9050 PRINT E;"->";C$, CHR$ N 

9055 LET E=E + 1 
9060 GOTO 9015 

Observances: 

1?) Para rodar o programa, digite RUN 9000 e NEW LINE. 

2?) Coloque este programa onde ele couber; assim, o numero 9000 da linha inicial 
e apenas uma sugestao. 

3?) Naturalmente e possivel alterar o enderepo inicial 16514 (linha 9010) de 
acordo com as suas necessidades. 

4?) Quando a tela “encher", o programa para com denotapao 5/9050; 
simplesmente digite CONT e NEW LINE. 

5?) Naturalmente (fazendo E=0) e possivel ver os codigos de m^quina da ROM, o 
maior programa em linguagem de maquina. 

6?) Consulte o Apendice 14 para outros enderepos iniciais dentro da ROM. 


Apendice 


71 Q PROGRAMA BASIC PARA 
Z_ VER CODIGOS DE MAQUINA 


Antes de mais nada, o melhor carregador ASSEMBLY e o que voce escrever, pois vai 
adaptar-se ao seu jeito. Programapao tem muito de pessoai. 

Este e o carregador ASSEMBLY que eu uso, pois gosto de poder entrar com quantos 
codigos hexa eu quiserao mesmo tempo. Da maior vetocidade, principaimente em 
programas iongos. O programa e assim: 

1 REM quantos caracteres forem necessarios 

modo direto : POKE 16510, 0 para transformar a linha 1 em linha 0 

10 LET E = 16514 
20 LET H$ = "" 

30 IF H$ = "" THEN INPUT H$ 

40 IF CODE H$>CODE "F" OR CODE H$<CODE "0" THEN STOP 

50 PRINT E; "->"; H$ ( TO 2) 

60 POKE E,16*C0DE H$ + CODE H$ (2)—476 
70 LET E = E + 1 
80 LET H$ - H$ (3 TO ) 

90 IF PEEK 16442=2 THEN CLS 
100 GOTO 30 

Observances : 

linha 10 ** as vezes, e necessario alterar o enderepo iniciai. Varios programas do 
Capftulo 3 tem outro endere^o inicial. Assim sendo, altere 
convenientemente... 

linha 20 -> aspas aspas, sem nenhum espago entre eias. 
linha 30^ idem. 

linha 40 -► para parar o programa, digite qualquer caractere que nao possa ser o 
primeiro de um codigo hexa; por exempio: G. 

linha 50 -> teclas J e M com shift. 

linha 90 no enderepo 16442 esta a variavel do sistema que controla a linha de 

impressao. Se temos PRINT AT 0,...; entao PEEK 16442—23 (0 + 23 = 
23). Assim, quando a impressao ocorrer na linha 21, PEEK 16442-2 
(21 + 2 = 23); e a tela e limpa (CLS). Isto evita o "erro 5". 


Apendice 



CARREGADOR ASSEMBLY 



ENDEREQO 

ROTINAS 

DECIMAL 

HEX A 

0 

0000 

Inicializa o sistema (cold start); RST 0; RAND USR 0 

8 

0008 

Manipula erros; RST 8 

16 

0010 

Imprime o caractere cujo codigo esta no acumulador; RST 10h 

24 

0018 

Carrega o acumulador com o byte apontado pela variave! do 
sistema CH.ADD; RST 18h 

32 

0020 

Analoga a anterior, mas com o proximo byte; RST 20h 

40 

0028 

Organiza calculos com ponto flutuante; RST 28h 

48 

0030 

Incrementa a area das variaveis com o numero de bytes 
determinado por BC; RST 30h 

56 

0038 

Gera o display, e operada por hardware; RST 38h 

102 

0066 

Gera o display em modo SLOW 

126 

007 E 

Tabela dos caracteres normais do teclado 

165 

00A5 

Tabela dos caracteres SHIFT do teclado 

204 

00CC 

Tabela das fungoes do BASIC 

243 

00F3 

Tabela dos caracteres graficos 

273 

0111 

Tabela das palavras chaves (KEY-WORDS) do BASIC 

508 

01FC 

Atuaiiza os comandos SAVE e LOAD 

519 

0207 

Determina SLOW ou FAST 

553 

0229 

Principal rotina do display 

658 

0292 

Display em modo SLOW 

693 

02B5 

Display em modo FAST 

699 

02BB 

Varre o teclado (KEYBOARD SCAN) 

756 

02 F4 

Comando SAVE; ver Apendice 16 

832 

0340 

Comando LOAD; ver Apendice 16 

930 

03A2 

Teste de BREAK no comando LOAD 

963 

03C3 

Comando NEW = RAND USR 963 

1049 

0419 

Edigao das linhas de programagao 

1108 

0454 

Rotina do cursor 

1154 

0482 

Constroi o sistema da variavel E.LINE 

1323 

052 B 

Ordena a edigao 

1476 

05C4 

Principal rotina de edigao 

1598 

063E 

Execugsio do programa BASIC 

1836 

072C 

Comando LLIST 

1840 

0730 

Comando LIST = RAND USR 1840 

1861 

0745 

Impressao de uma iinha BASIC 

1981 

07BD 

Decodificagao do teclado; FIND CHARACTER; normalmente 
‘ usada em conjungao com KEYBOARD SCAN 


Apendice 



OMAPA DA MINA 

(UM PEQUENO ROTEIRO DA ROM) 







ENDEREQO 

ROTINAS 

DECIMAL 

HEXA 

12033 

07 FI 

Impressao de um caractere 

12056 

0808 

Impressao de um caractere 

*2129 

0851 

Carga de um caractere no buffer da impressora 

^2153 

0869 

Comando COPY 

2293 

08F5 

Testa os parametros do PRINT AT 

2328 

0918 

Expansao do display 

2379 

094B 

Impresslo das palavras-chave do BASIC 

2462 

099 E 

Expansao do programa BASIC (consequentemente D.FILE e 
VARS} 

2477 

09 AD 

Organizapao das variaveis 

2520 

09 D8 

Determinapao do enderepo de uma linha de programa 

2602 

0A2A 

Comando CLS = RAND USR 2602 

2712 

0A98 

Impressao do numero da linha do BASIC 

2763 

0ACB 

Comando LPRINT 

2767 

0ACF 

Comando PRINT 

2923 

0B6B 

Impressao de uma string 

2991 

0BAF 

Comandos PLOT e UNPLOT 

3086 

0C0E 

Comando SCROLL = RAND USR 3086 

3113 

0C29 

Tabeia de sintaxe dos comandos 

3292 

0CDC 

Comando STOP 

3434 

0D6A 

Comando REM 

3499 

0DAB 

Comando IF 

3513 

0DB9 

Comando FOR 

3630 

0E2E 

Comando NEXT 

3692 

0E6C 

Comando RAND 

3708 

07EC 

Comando CONT 

3713 

0E81 

Comando GOTO 

3730 

0E92 

Comando POKE 

3759 

0EAF 

Comando RUN = RAND USR 3759 

3765 

0EB5 

Comando GOSUB 

3800 

0ED8 

Comando RETURN 

3817 

0EE9 

Comando INPUT 

3875 

0F23 

Comando FAST = RAND USR 3875 

3883 

0F2B 

Comando SLOW = RAND USR 3883 

3890 

0F32 

Comando PAUSE 

3910 

0F46 

Teste de BREAK do comando SAVE 

4897 

1321 

Comando LET 

5129 

1409 

Comando DIM 

5274 

149 A 

Comando CLEAR 

5405 

151D 

Arquiva acumulador na pilha do caiculador 

5408 

1520 

Arquiva o par de registradores BC na pilha do caiculador 

5514 

158 A 

Manipulapao dos cSIcuios de ponto flutuante 

5964 

174C 

Subtrapao de numeros de 5 bytes 
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ENDEREQO 

ROTINAS 

DECIMAL 

HEX A 

5973 

1755 

Adi<?ao de numeros de 5 bytes 

6086 

17C6 

Multiplicagao de numeros de 5 bytes 

6274 

1882 

Divisao de numeros de 5 bytes- 

6421 

1915 

Tabela de funpoes 

6557 

199D 

Calculador de ponto flutuante 

7680 

1E00 

Tabela de definipao dos caracteres 



Verifique se ha aigum byte errado na ROM de seu micro, rodando o seguinte programa. 
A resposta leva pouco mais de um minuto para surgir na tela (apesar do programa estar 
em FAST), 

10 FAST 
20 LET S=0 
30 FOR E=0 TO 8191 
40 LET S^S+PEEK E 
50 NEXT E 
60 SLOW 

70 PRINT "SOMA = ";S 

A tabela abaixo fornece os resultados da soma dos conteudos de todos os enderegos da 
ROM para cada micro de logica SINCLAIR. 


EQUiPAMENTO 

SOMA 

NE-Z8000 

855106 

CP-200 

855106 ou 855660 

TK 82-C 

855106 ou 854169 

TK 85 

854169 


Observagao: Nos casos de dois resultados, o primeiro deles se refere a equipamentos mais 
antigos; o segundo aos modelos mais recentes. 
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Aqui colocamos varias observances que nao "cabiam" nos apendices anteriores. 

1?) RST 0 e ativada quando o micro e ligado; inicializa todo o sistema; logo a 
digitagao de RAND USR 0 equivale a desligar e religar o computador. Se voce 
tern acesso ao teclado (nao houve CRASH), e prefenve! digitar RAND USR 0 
do que desligar e ligar. O efeito de RST 0 e mais "forte" do que NEW, pois 
RAMTOP e colocado no seu valor maximo. 

2?) Alguns programas escritos totalmente em linguag^m de maquina nao $ao 
"sensfveis" a tecla BREAK. Quando carregados a partir da fita, saem 
"rodando" automaticamente e ''nao e possfvel" para-los ou lista*los. 

No entanto, isto e possfvel, Sabemos que o comando LOAD comega identificando o 
nome do programa e, a partir disto, inicia a gravagao da RAM. 

Assim sendo, o que temos de fazer e "saltar" a verificagao do nome, introduzindo um 
erro no sistema. Logo, ao final da gravagao, o micro acusa erro (C/0), e voce pode 
confortavelmente listar o programa. Como fazer isto? 

O comando LOAD comega no enderego 832 (ver Apendice 14), e podemos tentar entrar 
na rotina ate o enderego 842, o que melhor funciona e: 

a) DIGITE FAST (NEW LINE) 

b) DIGITE RAND USR 837 (NEW LINE) 

c) AP6S A CARGA, O PROGRAMA pAra COM C/0 

d) LISTE O PROGRAMA... 

3?) No entanto, voce pode defender seus programas! Se um dia voce escrever um 
programa comercia! totalmente em linguagem de maquina, e, portanto, 
"insensi'vel" a tecla BREAK, defenda-odo "RAND USR 837" que ensinamos 
acima! 

RAND USR 837 p£ra o programa por nao ter verificado o nome, introduzindo um erro 
no programa. 

Assim, precisamossrat/ar o programa SEM NOME! Como isto e possivel? Assim: 


— voce gravava da seguinte forma: 



9990 

SAVE "NOME" 


9995 

RUN 

GOTO 

9990 

seguido de NEW LINE 

— passe a gravar assim: 



9980 

FAST 


9985 

RAND USR 757 


9990 

SLOW 


9995 

RUN 

GOTO 

9980 

seguido de NEW LINE 


Para carregar o programa, gravado desta maneira, LOAD "" e NEW LINE. O programa 
nao mais ser£ "parado" por RAND USR 837... 
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